I 



I 



1 




I 



Vol. 3, Issue 3, February 1 982 





5,000,000 BYTES OF HARD DISK 
STORAGE FOR MODELS 2 & 3 



Also in this issue: 

PROGRAMMING: 

The Theory and Techniques of Sorting 
Better BASIC Programming — Part 7 
Using the Level I Array 

SOFTWARE: 

•Screen Copy Utility 
•Longvars — Use Long Variable 
Names in your Basic Programs 



Part 4 



•Flashing Message Routine 

•The Mind Reader 

•Australian Income Tax Calculator 









P.O. BOX 213, GOODWOOD, S.A. 5034. AUSTRALIA. TELEPHONE (08) 211 7244. PRICE: AUS. $2.50, N.Z. $4.00, U.K. £1.50 



***** ABOUT MICRO-80 

EDITOR: IAN VAGG 

ASSOCIATE EDITORS: 
SOFTWARE LEVEL I 



SOFTWARE LEVEL II 
HARDWARE 



MICHAEL SVENSDOTTER 
CHARLIE BARTLETT 
EDWIN PAAY 



£ 


16-00 


£ 1-50 


£ 


43-60 


N | A 


£ 


75-00 


n|a 



MICRO-80 is an international magazine devoted entirely to the Tandy TRS-80 microcomputer 
and the Dick Smith System 80/Video Genie. It is available at the following prices: 

12 MONTH SUB. SINGLE COPY 
MAGAZINE ONLY $ 26-00 $ 2-50 
CASSETTE PLUS MAGAZINE $ 65-00 $ 4-00 (cass. only) 

DISK PLUS MAGAZINE $ 125-00 $ 10-00 (disk only) 

MICRO-80 is available in the United Kingdom from: 

U.K. SUBSCRIPTION DEPT. 24 Hoodhill Park, Pembury, Tunbridge Hells, KENT. TN2 4NH 

Prices: MAGAZINE ONLY 

CASSETTE PLUS MAGAZINE 
DISK PLUS MAGAZINE 

MICRO-80 is available in New Zealand from: 

MICRO PROCESSOR SERVICES, 940A Columbo Street, CHRISTCHURCH 1 N.Z. Ph. 62894 

Prices: MAGAZINE ONLY NZ$ 43-00 NZ$ 4-00 

CASSETTE PLUS MAGAZINE NZ$ 89-00 NZ$ 5-00 

DISK PLUS MAGAZINE NZ$ 175-00 NZ$ 15-00 

MICRO-80 is despatched from Australia by airmail to other countries at the following rates: 

(12 MONTH SUB.) MAGAZINE CASS + MAG DISK + MAG 

PAPUA NEW GUINEA Aus$ 40-00 Aus$ 83-00 Aus$ 143-00 

HONG KONG/SINGAPORE Aus$ 44-00 Aus$ 88-00 Aus$ 148-00 

INDIA/JAPAN Aus$ 49-00 Aus$ 95-00 Aus$ 155-00 

USA/MIDDLE EAST/CANADA Aus$ 55-00 Aus$ 102-00 Aus$ 162-00 



Special bulk purchase rates are also available to computer shops etc. Please use the form in this 
issue to order your copy or subscription. 

The purpose of MICRO-80 is to publish software and other information to help you get the most from 
your TRS-80, System 80 or Video Genie and their peripherals. MICRO-80 is in no way connected with 
either the Tandy or Dick Smith organisations. 

** WE WILL PAY YOU TO PUBLISH YOUR PROGRAMS ** 

Most of the information we publish is provided by our readers, to whom we pay royalties. An 
application form containing full details of how you can use your TRS-80 or System 80 to earn some 
extra income is included in every issue. 

** CONTENT ** 

Each month we publish at least one applications program in Level I BASIC, one in Level II BASIC and 

one in DISK BASIC (or disk compatible Level II). We also publish Utility programs in Level II 

BASIC and Machine Language. At least every second issue has an article on hardware modifications 

or a constructional article for a useful peripheral. In addition, we run articles on programming 

techniques both in Assembly Language and BASIC and we print letters to the Editor and new product 

reviews. 

** COPYRIGHT ** 

All the material published in this magazine is under copyright. That means that you must not copy 
it, except for your own use. This applies to photocopying the magazine itself or making copies of 
programs on tape or disk. 

** LIABILITY ** 

The programs and other articles in MICRO-80 are published in good faith and we do our utmost to 
ensure that they function as described. However, no liability can be accepted for the failure of 
any program or other article to function satisfactorily or for any consequential damages arising 
from their use for any purpose whatsoever. 
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*** SPECIAL OFFER TO NEW READERS AND READERS RENEWING THEIR SUBSCRIPTION 
*** SOFTWARE LIBRARY, VALUED AT OVER $100 - FREE!!! *** 



MICRO-80 has developed a new Library of Software consisting of 7 programs and a comprehensive user manual. The 
Software Library, on cassette, will be sent FREE to every new subscriber and to every subscriber who renews his sub- 
scription for another 12 months. Disk subscribers will receive their Software Library on a diskette. The new Software 
Library contains the following Level II/Disk Programs. All programs will also operate on the Model III. 

Poker 



Level I in Level II 

Convert your Level II TRS-80 or System 80 to operate as 
a Level I machine. Opens a whole new library of software 
for your use. 

Copier 

Copies Level II System tapes, irrespective of where they 
load in memory. Copes with multiple ORG programs. 

Z80 MON 

A low memory, machine language monitor which enables 
you to set break points, edit memory, punch system 
tapes, etc... 

Cube 

An ingenious representation of the popular Rubick's 
cube game for Disk users. 



Play poker against your computer, complete with realistic 
graphics. 

Improved Household Accounts 

Version 3.0 of this useful program. One or two bugs 
removed and easier data entry. This program is powerful 
enough to be used by a small business. 

80 Composer 

A music-generating program which enables you to play 
music via your cassette recorder and to save the music 
data to tape. This is an improved version of the program 
published in Issue 17 of Micro-80. 
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EDITORIAL 



" v ; v ; d J I remember the thnll all those years ago (about 3| to be precise) when I eagerly 
unpacked the first disk drive for my Model I TRS-80, connected it up and marvelled at the speed 
efficiency and,_ above all, the reliability of its data storage, compared with the cassette recorder 
I had_ been using. Time has passed, the old 35 track single-side, single-density disk drive 
has given way to the larger capacity 40 track drives, th-n dual-head and even 30 track, dual- 
head drives and finally double-density operation, all supported by more and more powerful disk 
operating systems. But none of these developments gave the same thrill as that first humble 
IL ii J\ ^'k 6 - -, They w .f re evolution ary, it was revolutionary. I thought that innocence 
had well and truly been lost and that that sort of excitement was gone forever. ' 

Recently J noticed an advertisement in Australian Personal Computer, for micro-winchester drives 
using I ACT-506 controller boards. ACT was not an unfamiliar name, I had seen similar advertisements 
in the American Byte magazine several months earlier but that ACT stood for American Computers 
and Telecommunications, whilst this ACT stood for Australian Computers and Telecommunications. 
Enquiries to the States at the time had indicated that a security firm in Sydney had the Australian 
distribution rights for the ACT controller - seemingly a strange combination. Anyway, once 
the advertisement appeared in APC, I called the number indicated "and almost before we knew it 

FPhrnart? fnl ST™ 0n t * ^T' h ° tf ° 0t (literal1 y " ^ ™* d "ring the power restrictions in 

eb i u 7 f ° r i ydr ! ey - A I am na PPy t0 report that all innocence had not been lost. Watching 

a 5M byte Winchester drive quietly and efficiently store and retrieve data in the blink of an 

TnJt S n? ^ e& \\ thr P ] aS that firSt disk drive had been 3 " * ears a 9°- Th e most impressive 
aspect of the whole demonstration, however, was the the skilful combination of hardware and 
software which makes the ACT hard disk sub-system live up to its name as a system. This is 
.Htl ni + l ey 3 . u s** not J* er P iece of advanced hardward technology which leaves the new owner 
with the responsibility for finding how to use it in his system. This is a complete, operating 
integrated hardware/software package that will plug in and run, efficiently and effectively 
Before we continue with more details of the sub-system, a few comments about ACT itself may 
ue or interest. ' J 

ACT was indeed an American company which developed computer systems for use in large security 
installations Burglar alarms, as they used to be called, become very complex when large premises 
are being protected and computers have been used to do the job for some years. ACT used the 
Zenith Z89 microcomputer for this purpose. When the new 5|" Winchester Technology drives first 
became available in the U.S.A. about 12 months ago, ACT decided that these would be ideal for 
their systems but no suitable disk controller board was available. Ken Utley of ACT rose to 
Ilr r/I 96 ^A developed a controller board and software to interface to the Zenith Z89 operating 
under CP/M and thus was born the ACT-506 controller. Australian Protection Industries Pty" 
Ltd. was the Australian distributor for the security systems developed by ACT, hence the tie- 
Sa ^ ec n en ^y 3 Ken Utley moved to Australia bringing with him the design rights for the ACT- 
bUb and Australian Computers and Telecommunications now manufactures and exports'" ACT-506 controller 
Jhp r cnft ° Ve H, a 5 . inc ^ din 9 tne U - S - A - In the intervening period, Ken has developed 

thf J ?h e c / + hardware t0 interface the ACT-506 to a number of different microcomputers including 

%\^\J™-M^ irrnd 3 !?!:^"' S " 10 ° ^^ and ' m ° St imP ° rtantly fr ° m ° Ur P ° in? 

If you closely examine the the photograph on the front cover of the hard disk sub-system, you 
will see that it bears the Micro-80 insignia. This is because we are so impressed and excited 
by its performance that we have had ACT construct the unit for us. We have also negotiated 
a special price of $2 995.00 (tax included) for a complete sub-system for the TRS-80 Model III 
together with the CP/M (org 4200H) disk operating system. For almost the first time in Australian 
microcomputing history, you can purchase a significant item of hardware for the same price in 
Australia as can Americans. If you are considering using a TRS-80 in a business application, 
I believe you should ^ery seriously consider including the Micro-80 hard disk sub-system as 
P A ol • i y ° U J- , sys ] te . m - The minimum specification computer you require for its proper use is a 
hfH S H n9 I e pd/m VF, T t R t S t " 8 ° M ° del ITI ° r a 64K Model H " You «>uld therefore have a 5 Mbyte 
S V i-t+i ' Mode l In i ^ ngle fl0ppy disk drive system for only $5895.00 (Micro-80 prices). 
Vh ! more than half what you would pay for any other hard disk computer system. An 
added advantage is that absolutely no modifications are needed to the Model III The Micro- 
80 sub-system simply plugs onto the 50 way expansion connector on the bottom of tV Model III 
Tandy s warranty is unaffected. Using CP/M you will have access to a wide range of professionally 
written and fully supported applications programs, including accounting packages, word processing 
finance and budgeting high level languages etc. etc. To add even further support, Micro-80 
has coramssioned Micro Systems Software in the U.S.A. to develop a version of D0SPLUS 4 especially 
for this system. With D0SPLUS, the sub-system will have access to the full range "of Model III 
programs Perhaps the best news of all is that we are offering a 30 day money back trial period. 
So confident are we of the system that we will refund the full purchase prices, less the cost 
of freight in either direction, if a sub-system is returned to us in original condition, within 
JU days of purchase. We are proud to be involved in bringing this new develooment to TRS-80 
users in Australia. Now, read on to find out more about the Micro-80 hard disk sub-system 
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The sub-system consists of the following components: 

- 5 Mbyte 5?" Seagate ST-506 (or similar) micro-winchester hard disk drive 

- ACT-506 microsequencer controller board 

- HOP high-integrity data separator 

- interface card for host computer 

- heavy duty power supply 

- free-standing, moulded plastic cabinet 

- CP/M disk operating system and utilities for host computer. 

The controller board itself contains in excess of 60 integrated circuits and is capable of con- 
trolling two 5 Mbyte micro-winchester hard disk drives simultaneously. The micro-winchester 
can read data at a burst rate of 5 million bits per second. The controller accepts data at 
this rate and stores it until the host computer has transferred it, via the interface card. 
The form of construction used, allows the sub-system to be transferred to a different computer 
at minimal cost, since only the host computer interface card and the CP/M need be changed. 

The CP/M disk operating system supplied has a number of enhancements and is specially tailored 
to suit the Model III. For example, the following video capabilities are supported: 

HEX EFFECT 

08 Backspace and erase 

09 Tab (8, 16, 24,...) 

OA Move cursor to start of next line and erase line. 

OD Move cursor to start of next line and erase line. 

OE cursor on 

OF cursor off 

15 Swap space compression/Special Characters 

16 Swap special /Alternate Characters 

17 double size characters 

18 Back space without earsing 

19 Advance cursor 
1A cursor down line 
IB Cursor up line 
1C Home cursor 

ID Erase line and start over 

IE Erase to end of line 

IF Erase to end of screen 

The CP/M 2.2 supplied contains the following standard CP/M programs and files: 

M0VCPM.COM Program to relocate the CP/M system. 

PIP.COM Program to move files. (Modified to use " " characters instead 

of "[]". 

SUBMIT.COM Program to perform "batch" processing. 

ED. COM Text file editor. 

ASM.COM 8080 assembler. 

DDT.COM System debugger. (Modified to use RST6). 

L0AD.COM Generates COM files from HEX files. 

STAT. COM Program to display/set system and file parameters. 

DUMP.COM File dumper. 

DUMP. ASM Source of above. 

There are several additional programs supplied on the diskette. These are special programs written 
by ACT personnel to aid in system generation and error analysis. All are supplied in both source 
and object form. 

SYSGEN.ASM Special system generation program for use with TRS-80 Model III 

SYSGEN.COM floppy drives and 5MB hard disk. Program operation is identical to 

the standard CP/M sysgen generation program described in the CP/M 

manual . 

FORMAT. ASM Diskette initialization program for floppy drives. 

F0RMAT.COM to initialize the hard disk, run DISKTEST Test 9. 

BOOTHD.ASM This is the bootstrap program used to read in and execute the boot 

B00THD.COM sector from the hard disk. The same program may be loaded into a 

user-supplied EPROM to be used for automatic hard disk boot on CPU 

power up. 

BIOS. ASM This file (supplied in source form only) is the source for the BIOS 

supplied with the TRS-80 Model III System. 
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HARDBOOT.ASM 
HARDBOOT.COM 

DISKTEST.ASM 
DISKTEST.COM 

DEFDISK.ASM 
DEFDISK.COM 

FIXDISK.COM 



TRSCPM 
INSERTLF 

TIMEDATE 
CLOCKON 
CLOCKOFF 
SAVEFILE 

RESTORE 



This is the program loaded from the boot sector of the hard disk 
which will read the CP/M operating system and the BIOS into memory 
and execute. 

Program to perform comprehensive testing of the 5MB disk sub- 
system. 

Program to set the hard disk drive characteristics. 

Program to locate, and make invisible, bad areas on the disk. 
This program works on any disk run under CP/M 2.2. 

Program allows copying from TRSDOS diskettes to CPM disks. 

Program allow automatic insertion of line feeds after carriaqe 
returns in basic programs. 

Program allows setting of time and date for real clock usage. 

Turn-on display of time and date on CRT screen. 

Turn-off display of time and date on CRT screen. 

Program allows copying of files larger than the floppy disk drive 
capabilities. 

Program retrieves large files from format written by SAVEFILE. 



?hf h h h- u 8 °K M ° de J ! and u ystem 80? lt is a rela tively straightforward matter to implement 
the hard disk sub-system on these computers, if the demand is there. If you are seriously 
interested in having 5 Mbyte of fast, reliable storage on your Model I or System 80, write in 
and let us know so we can decide whether we should implement it or not. 

- 0000000000 - 



***** INPUT/OUTPUT ***** 



From: R.J. Maclean, Formartin, Qld. 



I have recently typed in the "Sound Effects Revisited" program which was published in the September 
edition. During the typing in I came across a bug which may also be a potential problem in 
other programs. When I ran the program my computer (System 80) threw up a '?SN ERROR IN 580' 
After examining the relevant line I came to the conclusion that the lack of a space was causing 
the problem. Accordingly, I changed the line from "580 IFM>LETHENM=1" to "580 IFM>LE THENM=1" 
The changed line ran properly. Perhaps the removal of all blanks outside of REMark and PRINT 
lines is not always the best course. 

As I am renewing my subscription with this letter I will take the opportunity to state that 
I have found Micro-80 to be yery helpful and educational. 

(The particular bug you discovered was probably due to the variable LE and the THEN statement 
forming the reserved word LET. Although LET is almost never used, it is available in BASIC 
However, not all '80 interpreters run into this problem so there are obviously variations between 
machines. Perhaps it would be wise for authors to avoid variable names which form the first 
two letters of a reserved word. - Ed.) 

- 0000000000 - 



***** READERS' REQUESTS ***** 

This column is a regular feature of MICRO-80. In it, we list all those articles, programs 
etc. requested by our readers. We invite contributions from readers to satisfy these requests 
and will, of course, pay a publication fee for all articles, programs etc. printed. As a guide 
we will pay a minimum publication fee of $10 for any article or review published. In the case 
of software reviews, we will aim to pay in accordance with the value of the program, up to a 
maximum of $25. So, if you write a good review which we publish and the usual sellinq price 
of the program in Australia is $19.95, then we would pay you $20. In that way, the successful 
reviewer will get the program he reviews, free. (Make sure you include the selling price in 
your review). Unfortunately, we cannot afford that policy on hardware (!) so we will pay in 
accordance with the merits of the review - generally of the order of $25. Submission of a review 
for publication automatically means that you are prepared to accept the figure we decide to 
pay you and no correspondence will be entered into. Payment will be made within 30 days of 
publication. 
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** ARTICLES ** 

- File handling on the '80 

- Description of the functions performed by the Expansion Interface 

- Reviews of '80 compatible printers 

- Reviews of commercially available software (including that produced by us!) 

- Reviews of commercially available hardware 

* A master index to the appropriate sections in the Tandy Manuals in Level I, Level II, DOS etc. 

- Comparative reviews of disk drives 

- How to convert a Level I program to Level II 

* A simple guide to using Level I Arrays 

- An explanation of how to make full use of USR, PEEK and POKE statements 

- Discussion of the various electric fields produced by the keyboard, tape recorder, monitor 
disk drives etc., how to measure them, how important they are and how to combat them 

** SOFTWARE ** 

* A m.l. program to enable the break key to work like RESET when using an expansion interface 

- Stock market program 

* Horse racing system 

* Morse code decoder 

- Sub-routine Forum 

- A new STAR-TREK game 

* Modification to SCRIPSIT which will enable it to output to the SYSTEM 80 printer port 

- Programs of pharmaceutical interest such as Pharmacokinetics, Patient Medication Records, 
Drug information services etc. 

- Multiple file tape backup (as in Australian Personal Computing Aug/Sept '81 for PET) 

- A "PRINT SCREEN" command for the Model I 

- A football game using graphics and sound 

- Graphics car race as seen from the driver's position 

- Tank game for a single player 

** HARDWARE ** 

- Interfacing the '80 to external hardware 

- Review on the performance of line filters 

- Real Time clock 

* Radio Teletype/Morse interfacing 

- RFI (Radio Frequency Interference) suppression 

* Interface for a Teletype printer 

- Fast tape storage 

- A cheap add-on keypad 

- High speed card readers, interfacing and documentation for the Model II. 

NOTE: An * denotes that we already have some suitable material on hand for this topic. 

- 0000000000 - 

***** MICROBUGS ***** 

Vol. 3 Issue 2 Page 11 - The Theory and Techniques of Sorting - Part 3. There were some errors 
in the PASCAL Code used to illustrate "A RECURSIVE APPROACH". The corrected code for the 
procedure INSERTSORT is as follows: 

(* MAIN PROGRAM BLOCK DECLARATIONS *) 

TYPE LIST= ARRAY (1..N) OF REAL; 

VAR TABLE:LIST; L,U, POSITION: INTEGER; VALUE: REAL; 

PROCEDURE INSERTSORT (VAR TABLE:LIST; F IRST, LAST: INTEGER) ; 
VAR I: INTEGER; TEMP:REAL; 

PROCEDURE BINARYSEARCH (VAR TABLE: LIST; LOW, UPP: INTEGER; 

VALUE: REAL; VAR POS : INTEGER) ; 
VAR MID: INTEGER; 
BEGIN 

IF L0W>UPP THEN P0S:=L0W 
ELSE 

BEGIN 

MID:=(LOW+UPP) DIV 2; 

IF VALUE < TABLE (MID) THEN 

BINARYSEARCH ( TABLE , LOW, MID-1 , VALUE , POS) 
ELSE 

IF VALUE > TABLE (MID) THEN 

BINARYSEARCH ( TABLE , MID+1 , UPP , VALUE , POS ) 
ELSE 

P0S:=MID 
END 
END; 
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PROCEDURE BLOCKMOVE (VAR TA3LE:LIST; L.U: INTEGER) ; 
VAR I: INTEGER; 

BEGIN 

FOR I:=U DOWNTO L DO TABLE (1+1) :=TABLE(l) 

END; 

BEGIN (* OF MAIN *) 
FOR I:=2 TO N DO 
BEGIN 

IF TABLE ( I)< TABLE (1-1) THEN 
BEGIN 

TEMP:=TABLE(I); 

BINARYSEARCH ( TABLE ,1,1-1, TEMP, POSITION) ; 

BLOCKMOVE ( TABLE, POSITION, 1-1) ; 

TABLE(POSITION):=TEMP 
END 
END 
END; 

The corrections were made in the following: 
In Procedure BINARYSEARCH, 

IF LOW>UPP THEN POS:=LOW instead of -1, because although the procedure was demonstrated as a 
search routine for a specific value, it needed a modification to allow it to be used in the 
insertion sort for determining the correct position (in sequence) of a value that may not be 
currently in the table. 

In the Main Procedure block, 

The second parameter used in the BLOCKMOVE call (U+l) should read POSITION, because this is 
the parameter as returned from the CALL to the BINARYSEARCH procedure. Same correction to the 
next line where TEMP is moved into that POSITION in the TABLE. 

- 0000000000 - 



***** BETTER BASIC PROGRAMMING - PART 7 by Rod Stevenson ***** 
** YET MORE ASSEMBLY ** 
WHY SO MUCH ASSEMBLY? 

The emphasis on assembly in these last three articles is not merely that I find it aives far 
greater satisfaction than BASIC, but that so much can be done in assembly whereas BASIC ic 
hZ^raJp ^t-hlch is provided by the writers of the BASIC interpreter In ROM Not to put 
down BASIC at all - I still use it for most of the "real" programming I do. P 

From the previous two articles and with what follows here, I hope you will share my enthusiasm 
for assembly, not only for the speed and because it's the only way to modify the operating system 
but for the self-satisfaction in having got a job done efficiently. operating system, 

LIST DISABLE. 



4016 

4016 F142 
42F1 



40A7 
06CC 
0080 



00100 
OOllO 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 



;T0 DISABLE SHIFT S>, CSAVE, BREAK, LIST, SAVE, LLIST 

? DISABLED COMMANDS MAY BE ALTERED IN TABLE FROM LINE 870 

5 

? BY E. R. PAAY 

1 FOR R. STEVENSON 

S 24-8-1980 



;NOTE 



SHIFT A = SHIFT 3, SHIFT B = BREAK 
AFTER THIS PROGRAM IS LOADED. 



ORG 

DEFW 

ORG 



4016H 
START 
42F1H 



!SET NEW KB. VECTR. 



DEFINE LABELS. 



BPOINT 

BASIC 

DELIM 



EQU 
EQU 
EQU 



40A7H 
06CCH 
80H 
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OOFF 
03E3 



42F1 

42F4 

42F6 

42F8 

42FA 

42FC 

42FE 

4300 

4302 

4304 

4306 

4308 

430A 

430B 

430C 

430D 

430F 

4310 

4312 

4313 

4314 

4318 

4319 

431A 

431C 

431D 

431E 

4321 

4322 

4323 

4324 

4325 

4326 

4329 

432A 

432B 

432D 

432E 

432F 

4331 

4333 

4334 

4336 

4338 

4339 

433B 



CDE303 

FE65 

2841 

FE62 

2811 

FE61 

2810 

FEOD 

280F 

FE01 

2803 

FE60 

CO 

AF 

C9 

3E01 

C9 

3E60 

C9 

D9 

ED5BA440 

AF 

67 

2E53 

19 

EB 

2AA740 

2B 

D7 

1A 

13 

B7 

FACC06 

BE 

23 

2SF6 

1A 

13 

FE80 

20FA 

1A 

FEFF 

20E6 

D9 

3E0D 

C9 



433C 


4C 


4340 


80 


4341 


4C 


4346 


80 


4347 


43 


434C 


80 


434D 


53 


4351 


80 


4352 


FF 


06CC 





00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

005 lO 

00520 

00530 

00540 

00550 

00560 

00570 

00580 

00590 

00600 

00610 

00620 

00630 

00640 

00650 

00660 

00670 

00680 

00690 

00700 

00710 

00720 

00730 

00740 

00750 

00760 

00770 

00780 

00790 

00800 

00810 

00820 

00830 

00840 

00850 

00860 

00870 

00880 

OOS90 

00900 

00910 

00920 

00930 

00940 

00950 

00960 
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ENDMRK 


EOU 


OFFH 


KBSCAN 


EQU 


3E3H 
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START 



IGNORE 
BREAK 
SHFTAT 
CHKBUF 



L00P1 



L00P2 



L00P3 



ENTER 



START OF PROGRAM. 



CALL 

CP 

JR 

CP 

JR 

CP 

JR 

CP 

JR 

CP 

JR 

CP 

RET 

XOR 

RET 

LD 

RET 

LD 

RET 

EXX 

LD 

XOR 

LD 

LD 

ADD 

EX 

LD 

DEC 

RST 

LD 

INC 

OR 

JP 

CP 

INC 

JR 

LD 

INC 

CP 

JR 

LD 

CP 

JR 

EXX 

LD 

RET 



KBSCAN 

65H 

Z , ENTER 

62H 

Z, BREAK 

61H 

Z , SHFTAT 

ODH 

Z , CHKBUF 

01H 

2, IGNORE 

60H 

NZ 

A 

A,l 

A,60H 



DE, (40A4H) 

A 

H.A 

L,TABLE-START-M3 

HL,DE 

DE,HL 

HL, (BPOINT) 

HL 

10H 

A, (DE) 

DE 

A 

M, BASIC 

(HL) 

HL 

Z , LOOP2 

A, (DE) 

DE 

80H 

NZ , L00P3 

A, (DE) 

ENDMRK 

NZ,L00P1 

A„ODH 



5 SCAN KEYBOARD 
? SHIFT E ? 

? SHIFT B ? 

; SHIFT A ? 

; ENTER ? 

; BREAK ? 

; SHIFT S) ? 



5 IGNORE KEY ENTRY. 
; BREAK ! 

p SHIFT 3 ! 

3 SAVE REGISTERS 



?GET BUFFER ADDRESS 

;FIND FIRST CHARACTER 
;GET CHARACTER 
;BUMP POINTER 

;IF MINUS REINIT. BASIC 
; COMPARE CHARACTERS 
;BUMP POINTER 
SGET NEXT CHARACTER 



? FIND NEXT ENTRY 
; IN TABLE 

;END OF TABLE MARKER ? 

; RESTORE REGISTERS 

5 PUT ENTER CODE BACK IN A 

?DONE 



;THE TABLE THAT FOLLOWS MAY HAVE AS MANY ENTRIES AS 
; REQUIRED AS LONG AS ENTRIES ARE SEPARATED WITH A ZERO 
;BYTE. THE MAIN PROGRAM WILL MAKE BASIC IGNORE ANY 
; COMMAND CONTAINED IN THIS TABLE. 

TABLE 



DEFM 


'LIST' 


DEFB 


DELIM 


DEFM 


'LLIST 


DEFB 


DELIM 


DEFM 


' CSAVE 


DEFB 


DELIM 


DEFM 


'SAVE' 


DEFB 


DELIM 


DEFB 


ENDMRK 


END 


BASIC 



?END OF TABLE MARKER. 



This is the source code for the BASIC routine presented last time to disable BREAK, LIST, and 
others. As you see from the comments, any other commands may be added to the table as required. 

The whole basis of the program is that it intercepts the keyboard scanning routine normally 
provided by the operating system. This is accomplished by an address being given to 4016H, 
so that the operating system will go through this new routine each time it scans the keyboard 
instead of doing its own normal routine. 
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Having jumped into this new routine, a ROM routine is used to get the value of any key pressed, 
then to check it as noted in the comments. If it's none of the new operators provided, it just 
returns to the usual system. But if it is, it goes through the program and checks the keyboard 
buffer contents against the table provided. 

Two items contained in this program you'd be unlikely to know without Eddy Paay's ROM Reference 
Manual - that 401 6H is the address to be used to set a new keyboard vector, and a CALL to 3E3H 
will provide the results of a keyboard scan in the A register. 

BREAK-handling. 

As mentioned in the first article, there are some simple POKE methods for disabling the BREAK- 
key - as well as the routine above. However, they all require knowing that the BREAK-key will 
force a jump to 400CH (16396 decimal). If you have a disk system, TRSDOS will have put an address 
there to make the BREAK-key the method of jumping to DEBUG. From which it follows that you 
can also put something there to provide your own handling of the BREAK-key. Other systems have 
a statement of ON BREAK GO TO, but we can simulate this quite easily. 

Normally, level II will have a 101 (RET) at 16396. And I use decimal here because you will 
probably be doing these modifications from BASIC, when you require a decimal address. Which 
means it will just return with whatever is in the A register (the ROM Reference Manual tells 
you A holds the result of the keyboard scan). So this leaves the way open for" us to operate 
on the A register before it gets back! You will remember that I suggested in the first episode 
that you could simply POKE 16396,23 to disable the BREAK-key in level II. This is, in effect, 
rotating the accumulator left (23 decimal = 17H = RLA) which means it no longer holds 1 (the 
value of the BREAK-key), and it will RETurn on encountering the 201 (= RET) that level II has 
at 16400. But you will also remember I suggested that this is a bit simple - and it won't work 
for a disk system. If you zero the accumulator (by POKEing a value to do so, 151 = 97H = SUB 
A, or 175 - AFH = XOR A, into 16396, then a 201 (= C9 = RET) into 16397, can you see that this 
is the better alternative? 

Yes, I know NEWDOS has the BREAK-on/off facility, and you may say "why bother to POKE?" The 
reason is that (I hope) you've learned something. 

10 ON ERROR GOTO 32700 'TELLS WHERE TO GO WHEN AN ERROR IS DETECTED 

20 POKE 16396,195s POKE 1 6397 „ 49 z POKE 16398 s 40 'TELLS BREAK-KEY WHERE TO GO 

26 R=45/0 'DEMONSTRATES A DDIVIDE BY ZERO ERROR 

27 RERE 'DEMONSTRATES A SYNTAX ERROR 

30 PRINT" PRESS BREAK-KEY TO STOP THIS "ssG0TQ30 'THIS IS ONLY A DEMONSTRAT 

ION LINE 

32700 IF ERR/ 2+1 = 12 THEN PR I NTs PR I NTs PRINT "BREAK-KEY WAS PRESSED s PRESS BREAK-K 

EY AGAIN TO STOP PROGRAM NOW OR PRESS ENTER TO CONTINUE"? s 

I NPUTAs RESUME 'HANDLES BREAK-KEY 

32710 PRINTsPRINT"ERR0R"ERR/2-H ? "HAS OCCURED IN LINE"ERL?"s PRESS ENTER TO CONTI 

NUE ";s INPUT As RESUME NEXT 'HANDLES ANY ERROR 

This is another method of handling BREAK. And this, in effect, provides a function of "ON BREAK 
GO TO". It's not as neat as could be done by assembly, but does illustrate another approach. 

The whole idea is that the BREAK-key will simulate an ID error, which will not normally occur 
in the RUN mode. So when one does, it can only be because BREAK has been pressed. 

The BREAK-handling address (16396-9) has POKEd into it the address of the ID error entry point 
- yet again found from the ROM Reference Manual. So if we do nothing more, BASIC will stop 
and provide a message "ID ERROR IN LINE X". But to prevent this, we make use of the ON ERROR 
GO TO function. Incidentally, I don't favour general use of this function, as I believe your 
program should be fully debugged before you let it go! (I cannot agree with Rod in this. There 
is nothing more annoying in an applications program if, through gross operator error, the program 
crashes, for the user to see an error message generated by the BASIC interpreter such as OV 
error or OM error. Far better for the program to resume control and instruct the operator what 
to do next. - Ed.) 

To explain the program. 

Line 10 tells the ON ERROR routine where to GO TO. 

Line 20 puts the entry point of ID ERROR routine into the BREAK-handling routine in the operating 
system. 

Lines 26, 27, 32710 are just added in this example to show that the routine will handle otherwise- 
occurring errors too - though as I wouldn't expect your program to have any, these 
lines would of course be unnecessary! 

Lines 30 and 32700 are the real "bones" of the program, and allow for continued pressing of 
BREAK as a demonstration. 
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Of course this is just an example routine. Your real program would have only lines 10, 20, 
32700 as well as the whole of its real working code. And these line numbers are such for this 
very reason - lines 10 and 20 are necessary right at the start of the program to tell it where 
to qo to Line 32700 would be replaced by a subroutine at the end of your program to do what 
you actually want to do when the BREAK-key is pressed. An obvious thing is to close disk files 
before exitinq from the program. Or perhaps you'd want to allow only one pressing of BREAK 
in your program by disabling it in line 32700 after the first press, then return to the program. 
Or perhaps you will have given an instruction not to press the BREAK-key, and take some action 
if the operator does press the BREAK-key after your instruction not to. As usual with computing, 
the possibilities are limited only by the imagination. 

In fact all the routines presented in this series are intended only to provoke thought - and 
to use 'in your own programs. As I keep saying, the way to learn and understand is to use these 
ideas for yourself. 

SOUND. 

The whole basis of the simple sound routine found in many programs is that to record onto tape, 
the '80s PORT 255 is used to send positive or negative voltages to the cassette. 

System 80s can use the second cassette by enabling bit 2 of PORT 254 which acts as a switch 
to change from the on-board cassette, so sound will still come down the AUX line to the second 
cassette All that is necessary is to put an instruction at the start of the program to OUT 
254 4 and this will be effective throughout the whole program until you go back to BASIC and 
qet' the READY message again. This also works in machine language programs, so if you modify 
the many sound programs by adding machine language code for OUT 254,4 at the entry point (move 
the entry point if necessary), the sound will stay with you. No, it's not hard. I added the 
necessary 4 bytes to the "BIG FIVE" game "Attack" and can tell you that's allThat is necessary 
However a better way is a hardware modification to get the sound directly from the board, which 
will give a far better tone than even the TRS-80's AUX line does without any modifications. 



7F00 

7F00 CD7F0A 
7F03 0E8C 
TED 

7F05 45 
7F06 3E01 
7F08 D3FF 
7F0A lOFE 
= PITCH 
7FOC 45 
7F0D 3E02 
7FOF D3FF 
7F11 lOFE 
7F13 OD 
7F14 20EF 
7F16 C9 
7F00 



OOIOO 

001 10 ENTRY 

00120 



ORB 

CALL 

LD 



32512 
0A7FH 
C,140 



;GET VALUE FROM USR(O) IN BASIC 

; LENGTH OF NOTE (= TIMES CYCLE REPEA 



00130 REPEAT LD 

00140 LD 

OO 1 50 OUT 

00160 HI VOLT DJNZ 

00170 LD 

00180 LD 

00190 OUT 

00200 LOVOLT DJNZ 

00210 DEC 

00220 JR 

00230 RET 

00240 END 



B,L ? VALUE FROM USR<0>, CAN BE 0-255 
A,1H ; VALUE FOR POSITIVE VOLTAGE 
<0FFH) , A? SEND PULSE OUT PORT 
HI VOLT ; DELAY FOR NUMBER CYCLES IN USR(O), 

B,L ; VALUE FROM USR(O) 

A,2H ; VALUE FOR NEGATIVE VOLTAGE 

<OFFH) , As. SEND PULSE OUT PORT 255 

LOVOLT ; DELAY 

C ; AFTER ONE WHOLE CYCLE COMPLETED 

NZ, REPEAT? REPEAT 140 TIMES (VALUE IN C) 

;BACK TO BASIC 
ENTRY 



This is the simple sound generator program I presented at the end of the LIST disable routine 
in BASIC last article. The comments make the source code fairly self-explanatory. Because 
of the speed of machine code it has been necessary to incorporate delays into the program. 
Even so, the speed required is too high for a program such as this to be written successfully 
in BASIC'. 



1 CLEAR150:F0RI=lT072sREADD:S*=S*+CHR*<D) :NEXTsSL=PEEK (VARPTR <S$> +1 > sSM=PEEK(VAR 
PTR (S$> +2) s P0KE16526, SLs P0KE16527, SMs DATA205, 127, 10, 203, 124, 40, 4, 34, 28, 65, 201 , 34 
, 30, 65s DATA219, 255, 31 , 31 , 31 , 47, 230, 248, 95, 58, 57, 65, 254, 4, 32, 2 

2 DATA171 , 95, 58, 32, 65, 87, 237, 75, 28, 65, 43, 124, 181 , 40, 6s DATA221 , 227, 221 , 227, 24, 12, 
42, 30, 65, 122, 7, 7, 87, 230, 3, 179s DATA21 1 , 255, 3, 120, 177, 32, 228, 123, 21 1 , 255, 201 

3 INPUT "WHAT TYPE OF SOUND (1 TO 10) " ; T 

4 IFT<10RT>10THENPRINT"MUST BE BETWEEN 1 & 10" : G0T03ELSE0NTG0T06, 7, 8, 9, 10, 1 1 , 12, 
13,14, 15 

5 G0T04 

6 T=1:G0T016 

7 T=5sG0T016 

8 T=6sG0T016 

9 T=17sG0T016 

10 T=18sG0T016 

11 T=22sG0T016 

12 T=25sG0T016 

13 T=86sG0T016 

14 T=90sG0T016 

15 T=102sG0T016 
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16 POKE 1 6672 , T 

17 INPUT "DURATION (1 TO 32767) " 5 D: IFD< 10RD>32767THEN17ELSED=D-32768 S X=USR <D) 

18 INPUT"PITCH <1 TO 100) "; Ps X=USR (P) : R*=" " : INPUT"DO YOU WANT TO REDEFINE TYPE"? 
R*:IFLEFT*(R*,1)="Y"THEN3ELSEINPUT"D0 YOU WANT TO REDEFINE DURATION" ;RU»s I FLEFT* < 
R*, 1)="Y"THEN17ELSE18 

This is a more complex sound-generation program, but it still relies on the principle explained 
above (it must if it's to use the cassette port). 

I won't attempt an explanation of this code - it's not exactly elementary. It has two arguments 
passed to the machine language routine which returns in the middle of itself, as well as one 
POKEd into fixed RAM. But a re-reading of Ron Sully's article - Sound Effects Revisited, in 
Issue 22 may make it clearer. What it does show though, is that our '80 is indeed capable of 
some wondrous things - but you already knew this from Ron's program. Going even further, and 
without the hardware provided by "Orchestra 80" there is a program called "Opera" which does 
as Ron suggests - uses the BASIC interpreter to produce such works as "The William Tell Overture". 
So with thought, experimentation, and perseverance, much is possible! 

A READER RESPONDED! 

Being shocked, horrified, and disgusted at the gross inefficiency of my screen white-out routine 
presented two issues ago, a reader (Eddy Paay) has provided this code to do the same. 



3FFF 


00100 


VI DRAM 


EQU 


3FFFH 


OOBF 
K 


OOllO 


WHITE 


EQU 


OOBFH 


00120 


? 






7F00 


00130 




ORG 


32512 


7FOO 21FF3F 


00140 


START 


LD 


HL, VI DRAM 


7F03 36BF 


00150 


LOOP 


LD 


(HL), WHITE 


SITION 










7F05 2B 


00160 




DEC 


HL 


CREEN POSITION 








7F06 7C 


00170 




LD 


A,H 


7F07 E604 


00180 




AND 


4 


7F09 20F8 


00190 




JR 


NZ ? LOOP 


7F0B C9 

C 

7F00 


00200 




RET 




00210 




END 


START 



5 END OF SCREEN RAM 

sCODE FOR SOLID GRAPH IX BLOC 



; POINT TO END OF SCREEN 

5 WHITE-OUT CURRENT SCREEN PO 

; POINT TO NEXT < BACKWARDS) S 

5 LOOK AT MSB SCREEN ADDRESS 
; IS SCREEN POINTER <3CH? 
; IF NOT, CONTINUE 
; FINISHED, SO RETURN TO BASI 



I think the comments make all clear - the only "fancy" bit is the ANDing of the MS6 of the screen- 
pointer to determine if it's past the start of the screen (having commenced at the end). As 
the screen starts at 3C00H, it is convenient to be able to test that as soon as the MSB does 
not have CH as its low-order nibble (nibble = 4 bits, so high and low order nibble for each 
hex digit in a byte) the screen address is no longer pointed to. 



So having got a response from a reader, I anxiously await more, 
a bigger letterbox to hold them all, so don't let it go to waste. 



MICRO-80 has already installed 



- OOOOOOOOCO - 
***** THE THEORY AND TECHNIQUES OF SORTING - PART 4 by B. Simson ***** 

The last article demonstrated some variations to the general method of sorting "by insertion". 
By now, you would be under the impression that sorting by insertion is a very popular sorting 
technique, if only for the number of different variations possible to the main theme. Some 
fairly efficient variations have emerged, all with their own advantages. However, all of these 
variations so far have one thing in common. They are all subject to the restrictions inherent 
in -a linear, sequential data structure, the "array". You can only stretch an elastic so far, 
then it snaps.. . 

A NEW DATA STRUCTURE. 



What we need is something of a different nature that allows for increased efficiency, without 
overbearing complexity. Before introducing this structure of different nature, examine one 
of the major disadvantages in all of the insertion sorts so far - that of item (element, or 
key) movement. Straight and multiple insertion required movement of individual items as they 
were ranked. Binary insertion required movement of items as a logical block when the insertion 
position was found. This is a necessary evil when dealing with insertions/deletions in a sequential 
data structual such as the straight "array". To avoid this type of movement, and still retain 
necessary ordering of items, a non-sequential data structure could be used - that of "linked" 
organization, commonly found in linked linear lists. 
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LINKED LIST ORGANIZATION AND PROCESSING. 

In order to understand its use in the insertion sort (the "list insertion" sort), a brief explan- 
ation of linked linear lists is offered. Elements of any kind that are logically adjacent (as 
items in a sorting array) need not be physically adjacent (as the physically adjacent cells 
in an array). These elements, known as "nodes", are logically linked by pointers. The first 
logical node in a linked list is defined by a special variable, known as the "head" of the linked 
list, which is itself a special node. The last element is denoted as such by the use of a special 
null' value in its pointer field. Figure 1 illustrates the logical representation of such a 
data structure. 




1 



L. 



1 



GENERAL STORAGE AREA 



VALUE 


POINTER 



NODE 



FIGURE 1 - General structure of a singly linked list. 



However, unlike standard Pascal, and some other programming languages, BASIC does not support 
such dynamic linked structures, so arrays are used to simulate them. You may feel that to do 
so would be no better than the use of arrays in the straight insertion and binary insertion 
sort. However, this is not so, as is demonstrated below. To change the relationship of one 
item to another, at least one item, and usually many items, needed physical movement in a sequential 
data structure. To change the relationship of one item to another in a linked data structure, 
a maximum of only two pointers needs to be moved and no actual item (data) movements need occur. 
For example, in a sequential structure, insertion of an item at the third position of the structure 
requires the movement down of all items from the third position to the last. In a linked structure, 
insertion at the third position requires only the following: 

- Pointer of second item moved to pointer of new; 

- Address of new item moved to pointer of second item. 

When inserting (or deleting) nodes from a linked structure, the address of the predecessor 
node to the candidate node for the operation is required. This is obtained by chaining through 
the structure, following the pointers. Now, this is much more efficient than the movement of 
masses of items in a sequential structure, especially if the number of items in a sort array 
is large. In fact, in a linked structure, after the predecessor node is located, the number 
of items in the sort array is irrelevant when changing the relationship between two items. 
The general operations of insertion and deletion are formally defined in the flowcharts in figure 
2. An important assumption here is that the head of the list is located at row zero in the 
table. (Some programming languages do not allow element zero addressing). If the head is located 
in some other pointer variable, then the special cases of insertion of a node in an empty list 
(head contains null) or insertion in the first position in the list must be considered, as does 
deletion. 
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( INSERT J 



SEARCH 




POINTER OF 
HEAD TO 
POINTER OF 
NEW 



POINTER OF 
PREDECESSOR 
TO POINTER OF 
NEW 



j ADDRESS OF 
NEW TO 
POINTER OF 
HEAD 




ADDRESS OF 
NEW TO 
POINTER OF 
PREDECESSOR 



( SEARCH J 



INIT POINTER 
FROM HEAD. 
INIT PREDECES; 
POS POUND 



VOR, 





POINTER OF 
CURRENT TO 
POINTER OF 
HEAD 



POINTER OF 
CURRENT TO 
POINTER OF 
PREDECESSOR 




POINTER TO 
PREDECESSOR 



SET 

POS FOUND 



LINK(Pntr) 
to POINTER 





SET SAME 



■o 



? 



( EXIT ) 



FIGURE 2 - General processing algorithms - singly linked linear lists. 
Note: Pntr is an abbreviation for POINTER 
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APPLYING THE NEW DATA STRUCTURE. 

In order to demonstrate the increased efficiency that this data structure can give to the insertion 
sort, some of the list processing algorithms in the flowchart need to be coded: 

1195 G0T02100 'Needed to route initial processing to driver. 

1200 ' Search 

1 250 PNTR=A( , 2 ) : PRED=0 : F0UND=FALSE : SAME=FALSE 

1300 IF PNTR=0 OR FOUND THEN RETURN 

1350 IF A(PNTR,1)<A(AD,1) PRED=PNTR:PNTR=A(PNTR,2) :ELSE FOUND=TRUE 

1450 G0T01300 

1500 ' INSERT 

1550 G0SUB1250 

1600 A(AD,2)=A(PRED,2) 

1650 A(PRED,2)=AD 

1700 RETURN 

The flag "SAME" in the flowchart is not required here, because insertions of duplicates in the 

list are allowed. Also, the list insertion sort does not do any deletion operations. Now that 

the essential list processing algorithms have been coded, the rest of the list insertion sort 
and driver follow: 

1850 A(0,2)=0 'INITIALIZE HEAD. 

1900 FOR AD=1T0N 

1950 G0SUB1550 'LINK ITEM TO STRUCTURE 

2000 NEXT AD 

2050 RETURN 

2100 ' MAIN DRIVER 

2200 'A()=LINKED LIST STRUCTURE, AS SIMULATED BY THE ARRAY 

2250 'PRED=ADDRESS OF PREDECESSOR NODE 

2300 'FOUND=FLAG SET TRUE WHEN INSERTION POSITION FOUND 

2350 ' PNTR=TEMPORARY POINTER VARIABLE 

2355 'AD=ADDRESS OF CURRENT ITEM UNDER CONSIDERATION 

2360 'A(AD, DEVALUE OF NEW ITEM TO BE INSERTED 

2370 ' 

2380 DEFINTA-Z 

2400 CLS:INPUT"NUMBER OF ITEMS FOR SORTING" ;N: IFN<1THEN2400 

2450 DIMA(N,2) :TRUE=-1 :FALSE=0: RANDOM 

2500 PRINT"LIST BEFORE SORT:" 

2550 F0RI=1T0N 

2600 A(I,1)=RND(1000):A(I,2)=0:PRINTA(I,1); 

2650 NEXT 

2700 PRINT: INPUT"HIT ENTER TO START SORT"; I 

2750 G0SUB1850 

2800 PRINT"LIST AFTER SORT:" 

2850 PNTR=A(0,2) 

2900 IF PNTR=0 THEN 3050 

2950 PRINTA(PNTR,1);:PNTR=A(PNTR,2) 

3000 G0T02900 

2050 END 

SOME POINTS OF EXPLANATION. 

The initial unsorted data is placed in a 2-dimensional table rather than a one-dimensional array, 
because this is the structure needed to simulate the linked list. 

The head of the linked list is located in row zero, with the point value in column 2. 

The value of the null pointer is zero, since an address of zero is not valid for an item being 
sorted. 

The method of displaying the results of the sort is not simply a sequential list of column 1 
of the table, since no actual shifting of items occurred (they are still in the same physical 
sequence as before the sort). Rather, the results are extracted logically by following the 
logical relationship of the items as established by the link information of the pointers. 

In short, this method of insertion sorting obviates the necessity of moving a potentially large 
number of items down to vacate a position for insertion of a new item. Instead, insertion of 
a new item is achieved by modifying the link information inherent in the data structure. 

YET ANOTHER VARIATION. 

There is another variation of the insertion sort that has become popular, known as the Shell 
sort or diminishing-increment sort, developed by Donald Shell in 1959, and documented in the 
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A. CM. Collected Algorithms, Algorithm 201. This algorithm is similar to the straight insertion 
sort, except that instead of comparing adjacent items, comparisons are made on items that are 
separated by an increment that diminishes with each pass. One version of this algorithm appeared 
in Tandy Newsletter Volume No. 9, May/June 1980, and is reproduced below, with modified driver 
and variable names. 

A variation to this method of rearranging items in line 4180 {when an out of sequence situation 
has been detected) is known as Hibbard's modification. (A. CM.) This states that X pair swaps 
(as above) can be substituted by one save, (X-l) moves and one insertion (of the saved item). 
This coincides exactly with the method of rearranging an item ranked in the straight insertion 
sort. It can be seen from this code that the diminishing increment (DI) in line 4120 starts 
at half of the list size, and diminishes by a factor of .5 for each successive pass. This has 
the effect of increasing the pass size in line 4140 from half of the list size to 1 less than 
the list size. 

MATHEMATICAL ANALYSIS. 

The diminishing increment sort is among many other sorting algorithms whose efficiency approaches 
N*(Log of N to Base 2). This sorting algorithm has been chosen to demonstrate that fact because 
the number of passes and comparisons in each pass can be easily seen. For instance, with a 
list size of 15, the number of passes - 4, because the DI (diminishing increment) starts at 
8, and is modified to 4, 2 and 1. This means that the minimum number of comparisons in each 
of the passes are 8, 12, 14 and 15, as the pass size increases in the same proportion that the 
DI is decreasing. (These represent the minimum number of comparisons because when an out of 
sequence situation is detected, further comparisons and moves are made before continuing with 
the pass). In fact, the total number of passes involved (P) is related to the list size (N) 
through the relationship 2 P = N. A list size of 32 requires 5 passes (2 =32), i.e. pass sizes 
of 16, 16+8, 16+8+4, 16+8+4+2 and 16+8+4+2+1. 

DIMINISHING-INCREMENT SORT 

Let n = total number of items being sorted 
p = number of passes 
c = number of comparisons 

Since 2 P = n, p = ({^|-£ ) i.e. INT (LOG N/L0G 2) 

C in Pass 1 = £- 

C in Pass 2 = (£- + ^-) 

C in Pass 3 = (-£- + £- + £-) 

C in Pass P = (£- + ^- + J- +. . .) 

P IL 
2 1 
i=l 

This represents the summation of a geometric progression of general formula 

A(1-R N ) where A = first term 
-, R R = common ratio 
N = nth term 



In this case, A = 
R = 



n 

T 
1 
77 



Substi 



N = Pn (Pass n) 

1 xPn, 



i tuting, C in Pass Pn = J}_(i-(^_) Pn ) = n (l-l/2P n ) 



1 
T 

So, no. comparisons in any pass is given by formula 

n( 1-1/2" ) where Pn = Pass number. 

C total = n ^ ~ ~T^ + n ^ ~ ~t) + '•' + n ^ " ~P^ where P = total number of passes 

= n((l- lj) + (1 - 1 ) + ....+(1 - 1^) ) 
2 1 2 c 2 k 

P , 
= n(l + 1 + ...+1 - ( -L) ) 

2 1 

i=l c 
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The inner parenthesis also represents a summation of a geometric progression, where A = §, R = I, 
n = P. 

Also, since the units have been extracted from each pass parenthesis, their sum must equal P. 

ifi.[ i)P\ 
Substituting C t t j = n(P - 2U Wl ' ) 

2 

= n (P - (1 - 1-) ) 
2 P 

= n (P - 1 + 1- ) 

2 
Now as the number of passes (p) becomes large, -1 becomes insignificant, and 2 P becomes huge, causing 

1 to become insignificant. 

Therefore C. . , approx. = n.P 

Since p = C lo g n ) 
log 2 

Ctotal approx. = n Log ? n 

That is, no. comparisons approaches the order of n log ? n. 

SELECTION SORT. 

This algorithm was discussed in the second article of this series. During the first pass, in 
which the smallest item was found, (n-1) items are compared. Therefore we can say that for 
the pth pass, (n-p) comparisons are required. Also, (n-1) passes are required. 

The total number of comparisons (C) is therefore (n-1 )+(n-2)+(n-3)+. . .+2+1 
(n-p) where p represents the pass number. 

p=l 

This represents the summation of an arithmetic progression, of general formula y-(2A+d( N-1 ) 

•f" h 

where A = first term, d = common difference, N = n term 

In this example, A = (n-1) 
d = -1 
N = no. of passes, = (n-1) 

Substituting, 

C total =^l(2(n-l)+-l(n-l-l) ) 

= H^l(2n-2 -n+2) 

= in(n-l) 

2 

As n becomes large, -1 becomes insignificant. Therefore no. comparisons approx. in , which 

is of the order of n^. 

This is much less efficient than one to the order of n log„n. 

TO SUMMARIZE. 

Two further variations to straight insertion sorting were demonstrated; one using a data structure 
based on linked organization, using a linked linear list, the other involving comparison of 
items that are separated by a diminishing increment. It can be shown mathematically that the 
efficiency of this and like algorithms is greater than some of the more elementary algorithms 
discussed earlier, like the selection sort. 

Well, this finalizes the discussion on sorting "by insertion", although this is by no means 
all there is to insertion sorting. There are many other hybrid algorithms that employ a mixture 
of techniques, endeavouring to obtain the best features of insertion, exchange, selection and 
merging techniques. Next month, a very efficient form of sorting by selection (more so than 
the Shell sort) will be discussed, due to the use of yet another kind of data structure. 

- 000000000 - 
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The following is a list of '80 Users' Groups. If you have a group that is not included here, please let us know about 
it so that we can publish details. Owners of System '80s are welcome at all the groups. 

** AUSTRALIA ** 



AUSTRALIAN CAPITAL TERRITORY 

CANBERRA GROUP 

Contact: Bill Cushing, 10 Uraabi Village, Kaabah, ACT. 2902. 
MEETINGS: 3rd Thursday of each month at 7.30 p. a. in: 

Uraibi Village Coaaunity Centre, Crozier Circuit 

Kaabah. 

NEW SOUTH WALES 



COMPUTERTOWN CAHDEN (CTAUS!) 

Contact: Keith Stewart 

P.O. Box 47, Caaden, NSW. 2570. 

SYDNEY MAPPER CP/M GROUP 

Contact: Dan Lawrence, Mapper CP/H Users' Group, 
c/o G.P.O. Box 2551, SYDNEY, NSW. 2001. 

SYDNEY EASTERN SUBURBS 

Contact: Dan Lawrence, 

TRS-80 Eastern Suburbs Group, 

c/o G.P.O. Box 2551, SYDNEY, NSW. 2001. 

W0LL0NG0NG GROUP 

Contact: Paul Janson, 

P.O. Box 397, DAPTO, NSW. 2530. 
BLUE MOUNTAINS OF N.S.H. 

Contact: Greg Baubaan, 

Tel: Hone (047)51 3221 
MEETINGS: 1st Friday of the month at 7.30 p. a. 

in Springwood Civic Centre. 

NORTHERN TERRITORY 

DARWIN GROUP 

Contact: Tony Doaigan, 

P.O. Box 39086, WINNELLIE, NT. 5789. 

QUEENSLAND 

BRISBANE GROUP 

Contact: Lance Laues, 

Tel: Hoae (07)396 2998 

Bus. (07)268 1191 Ext. 15 
MEETINGS: 1st Sunday each month at 2 p.m. at 21 Rodney 

Street, Lindum. 



SOUTH AUSTRALIA 

ADELAIDE GROUP 

Contact: Rod Stevenson, 

36 Sturt Street, Adelaide, SA. 5000. 
Tel: 515241 between 9-4. 

VICTORIA 



NATIONAL NATIONAL USERS' GROUP 

Contact: Brian Pain, 40 High St. Stoney Stratford, 
Milton Keynes. 

CO. DURHAM NORTH-EAST TRS-80 GROUP 

Contact: Barry Dunn, 8 Ethick Tee. North Craighead, 

Stanley, Co. Durham, DH9 6BE. Tel: 0207-30184 

COMPUTERTOWN UNITED KINGDOM (CTUKi) 

Contact: Dave Tebbutt, c/o 14 Rathbone Place, London W1P IDE 



EASTERN SUBURBS GROUP 

Contact: Mr. John Fletcher 

Tel: Hoae (03)737 9544 

Bus. (03)89 0677 (9-4) 
MEETINGS: 4th Wednesday of the aonth at 7 p.o. at 

Kingswood College, 355 Station Street, Box Hill. 

HICOM 80 USERS' GROUP 

Contact: Len Sanders 

Tel: (03)560 8132 
MEETINGS: 1st Wednesday of each aonth at Alvie Hall, 

High Street, Ht. Waverley. 

NORTHERN AND WESTERN SUBURBS 

Contact: Mr. David Coupe 

Tel: (03)370 9590 
MEETINGS: C.P.H. Data Systems, 284 Union Road, Moonee 

Ponds - Alternate Thursdays at 7 p. a. 

PENINSULAR GROUP 

Contact: M.G. Thompson - (03)772 2674 
MEETINGS: 2nd Tuesday of the aonth (except January) 
at State College, Frankston. 

GEELONG COMPUTER CLUB 

Contact: The Geelong Computer Club, 

P.O. Box 6, Geelong, Vic. 3220. 

MEETINGS: 2nd Thursday of the aonth at Tybar Engineering 
Hampton Street, Newton. 

WESTERN AUSTRALIA 

PERTH '80 USERS' GROUP 

Contact: C. Powell (09)457 6849 

MEETINGS: 1st Tuesday of each aonth at 7.30 p. a. 

in the Community Recreation Hall, Macdonald 

Street, Yokine. 

UNITED KINGDOM ** 

TANDY OWNERS PROGRAM £ INFORMATION CO-OP. 
Contact 



Ashley 



** NEW ZEALAND ** 



AUCKLAND 



Contact: Ron Feasy Bus. 799 366 Home. 469 455 
MEETINGS: 1st Tuesday of each aonth, 7.30 p.ra. at: 

NZ Solenoid Co. Ltd., 

28 Kalnia Street, 

Ellerslie, Auckland. 



Derek Higbee, 12 Shelley Close, 
Heath, Ringwood. Tel: Ringwood 6720. 

NATIONAL NEWCASTLE PERSONAL COMPUTING SOCIETY 

Contact: John Stephen Bone - 0632 770036 

BOLTON NORTH-WEST TRS-80 GROUP 

Contact: The Secretary, North-West TRS-80 Users Group, 
40 Cowlees, West Houghton, Bolton BL5 3EG. 

COMPUTERTOWN NORTH-EAST (CTNE!) 

Contact: c/o 2 Clareaont Place, Gateshead, Co. Tyne & 

Wear NE8 1TL. Tel: 0632-770036/643417/679119/559167 
EDUCATIONAL USERS' GROUP 

Contact: Dave Futcher - Head Teacher, 

Beaconsfield First & Middle School, 
Beaconsfield Rd, Southall, Middlesex. England. 

WEST HERTS 80 USERS GROUP 

Contact: Terry Bradbury, 20 Spruce Way, St. Albans Herts. 
Tel: PARK STREET 73663. 
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DONT BE HELD BACK BY AN 
ANTIQUATED DISK OPERATING SYSTEM 

MOVEUPTO 
NEWDOS80 $149 inch p&p 

NEWDOS 80 is a completely new DOS for the TRS-80 
SYSTEM 80. It is well-documented, bug free and 
increases the power of your system many times over. It 
is upward compatible with TRSDOS AND NEWDOS (ie 
TRSDOS and NEWDOS+ programs will run on 
NEWDOS 80 but the reverse is not necessarily so). 

These are just a few of the many new features offered 
by NEWDOS 80. 

* New BASIC commands that support variable record 
lengths up to 4095 bytes long. 

* Mix or match disk drives. Supports any track count 
from 18 to 96. Use 35, 40, 77 or 80 track 5 1 / 4 inch 
mini disk drives, 8 inch disk drives OR ANY COM- 
BINATION. 

* An optional security boot-up for BASIC or machine 
code application programs. User never sees "DOS- 
READY" or "READY" and is unable to "BREAK", 
clear screen or issue any direct BASIC statements, 
including "LIST". 

* New editing commands that allow program lines to 
be deleted from one location and moved to another 
or to allow the duplication of a program line with 
the deletion of the original. 

* Enhanced and improved RENUMBER that allows 
relocation of subroutines. 

* Create powerful chain command files which will 
control the operation of your system. 

* Device handling for routing to display and printer 
simultaneously. 

* MINIDOS - striking the D, F and G keys simul- 
taneously calls up a MINIDOS which allows you to 
perform many of the DOS commands without dis- 
turbing the resident program. 

* Includes Superzap 3.0 which enables you to display/ 
print/modify any byte in memory or on disk. 

* Also includes the following utilities: 

— Disk Editor/Assembler 

— Disassembler (Z80 machine code) 

— LM offset — allows transfers of any system tape 
to Disk file — automatically relocated. 

— LEVEL I — Lets you convert your computer back 
to Level 1 . 

— LVIDKSL - Saves and loads Level 1 programs to 
disk. 

— DIRCHECK — Tests disk directories for errors 
and lists them. 

— ASPOOL — An automatic spooler which routes a 
disk file to the printer whilst the computer con- 
tinues to operate on other programs. 

— LCDVR — a lower case drives which display lower 
case on the screen if you have fitted a simple lower 
case modification. 



DISK DRIVE USERS 
ELIMINATE CRC ERRORS 
AND 
TRACK LOCKED OUT MESSAGES 
FIT A PERC0M DATA SEPARATOR 
$37.00 plus $1.20 p&p. 
When Tandy designed the TRS-80 expansion interface, 
they did not include a data separator in the disk- 
controller circuitry, despite the I.C. manufacturer's 
recommendations to do so. The result is that many 
disk drive owners suffer a lot of Disk I/O errors. The 
answer is a data separator. This unit fits inside your 
expansion interface. It is supplied with full instructions 
and is a must for the serious disk user. 



MP! DISK DRIVES 
HIGHER PERFORMANCE - LOWER PRICE 
MPI is the second largest manufacturer of disk drives in 
the world. MPI drives use the same form of head 
control as 8" drives and consequently, they have the 
fastest track-to-track access time available — 5msec! All 
MPI drives are capable of single or double-density 
operation. Double-density operation requires the instal- 
lation of a PERCOM doubler board in the expansion 
interface. 

As well as single head drives, MPI also makes dual- 
head drives. A dual-head drive is almost as versatile as 
two single-head drives but is much cheaper. 

Our MPI drives are supplied bare or in a metal cabinet 
- set up to operate with your TRS-80 or SYSTEM 80. 
All drives are sold with a 90 day warranty and service is 
available through MiCRO-80 PRODUCTS. 

MPI B51 40 Track Single Head Drive only $349 

MPI B52 40 Track Double Head Drive only $449 

Prices are for bare drives and include p&p. Add $10.00 
per drive for a cabinet and $60.00 for a power supply 
to suit two drives. 40 track drives are entirely compa- 
tible with 35 track drives. A 40 track DOS such as 
NEWDOS 80 is necessary to utilise the extra 5 tracks. 



OVER 800 KILOBYTES ON ONE DISKETTE! 
WITH MPI 80 TRACK DRIVES 
MPI 80 track drives are now available. The B91 80 
track single-head drive stores 204 Kilobytes of for- 
matted data on one side of a 5% inch diskette in single- 
density mode. In double-density mode it stores 408 
Kilobytes and loads/saves data twice as quickly. 
The B92 80 track dual-head drive stores 204 Kilobytes 
of formatted data on EACH side of a 5 1 /4 inch diskette 
in single-density mode. That's 408 Kilobytes per 
diskette. In double-density mode, the B92 stores a 
mammoth 408 Kilobytes per side or 816 Kilobytes of 
formatted data per diskette. With two B92's and a 
PERCOM double, you could have over 1.6 Megabytes 
of on line storage for your TRS-80 for less than $1500!! 

MPI B91 80 Track Single Head Drive only $499 

MPI B92 80 Track Dual Head Drive only $619 

Prices are for bare drives and include p&p. Add $1 0.00 
per drive for a cabinet and $60.00 for a power supply 
to suit two drives. Note: 80 track drives will not read 
diskettes written on a 35 or 40 track drive. If drives 
with different track counts are to be operated on the 
same system, NEWDOS 80 must be used. 



CARE FOR YOUR DISK DRIVES? 

THEN USE 

3M's DISK DRIVE HEAD CLEANING DISKETTES 

$30.20 incl. p&p. 

Disk drives are expensive and so are diskettes. As with 
any magnetic recording device, a disk drive works 
better and lasts longer if the head is cleaned regularly. 
In the past, the problem has been, how do you clean 
the head without pulling the mechanism apart and run- 
ning the risk of damaging delicate parts. 3M's have 
come to our rescue with SCOTCH BRAND, non- 
abrasive, head cleaning diskettes which thoroughly 
clean the head in seconds. The cleaning action is less 
abrasive than an ordinary diskette and no residue is 
left behind. Each kit contains: 

— 2 head cleaning diskettes 

— 1 bottle of cleaning fluid 

— 1 bottle dispenser cap 



PHASE USE OiDEi FORM ON PAGE 36 
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USE TANDY PERIPHERALS ON YOUR SYSTEM-80 

VIA 

SYSPAND-80 - $97.50 incl. p&p 

The SYSTEM-80 hardware is not compatible with the 
TRS-80 in two important areas. The printer port is 
addressed differently and the expansion bus is entirely 
different. This means that SYSTEM-80 owners are 
denied the wealth of economical, high performance 
peripherals which have been developed for the TRS-80. 
Until now, that is. MICRO-80 has developed the 
SYSPAND-80 adaptor to overcome this problem. A 
completely self-contained unit in a small cabinet which 
matches the colour scheme of your computer, it con- 
nects to the 50-way expansion part on the rear of your 
SYSTEM 80 and generates the FULL Tandy 40 way 
bus as well as providing a Centronics parallel printer 
port. SYSPAND-80 enables you to run an Exatron 
Stringy Floppy from your SYSTEM 80, or an LNW 
Research expansion interface or any other desirable 
peripherals designed to interface to the TRS-80 expan- 
sion port. Make your SYSTEM 80 hardware compatible 
with the TRS-80 via SYSPAND-80. 



PROGRAMS BY MICROSOFT 

EDITOR ASSEMBLER PLUS (L2/16K) 
$37.50 + $1.20 p&p 

A much improved editor-assembler and debug/monitor 
for L2/16K TRS-80 or SYSTEM 80. Assembles directly 
into memoty, supports macros and conditional assem- 
bly, includes new commands-substitute, move, copy 
and extend. 

LEVEL III BASIC $59.95 plus $1.20 p&p 

Loads on top of Level II BASIC and gives advanced 
graphics, automatic renumbering, single stroke instruc- 
tions (shift-key entries) keyboard debounce, suitable 
for L2/16K and up (Not Disk BASIC) 

ADVENTURE ON DISK $35.95 plus $1.20 p&p 

This is the original ADVENTURE game adapted for 
the TRS-80. The game fills an entire diskette. Endless 
variety and challenge as you seek to rise to the level of 
Grand Master. Until you gain skill, there are whole 
areas of the cave that you cannot enter. (Requires 32K 
One Disk) 

BASIC COMPILER $208 plus $2.00 p&p 

New improved version, the Basic Compiler converts 
Disk BASIC programs to machine code, automatically. 
A compiled program runs, on average, 3-10 times faster 
than the original BASIC program and is much more 
difficult to pirate. 



UPGRADE TO 16K 
FOR ONLY $30.00!! 

MJCRO-80's 16K MEMORY EXPANSION KIT 
HAS BEEN REDUCED IN PRICE EVEN MORE 

Larger volume means we buy better and we pass the 
savings on to you. These are our proven, prime, branded 
200 ns (yes, 200 nanosecond) chips. You will pay 
much more elsewhere for slow, 350 ns. chips. Ours are 
guaranteed for 12 months. A pair of DIP shunts is also 
required to upgrade the CPU memory in the TRS-80 - 
these cost an additional $4.00. All kits come complete 
with full, step-by-step instructions which include 
labelled photographs. No soldering is required. You do 
not have to be an experienced electronic technician to 
instal them. 



DISK DRIVE CABLES 
SUITABLE FOR ANY DISK DRIVES 

DC-2 2 Drive Connector Cable $39 incl. p&p 

DC-4 4 Drive Connector Cable $49 incl. p&p 



DOUBLE THE SPEED AND CAPACITY 

OF YOUR DISK DRIVES 

PERC0M D0UBLER ONLY $220 

plus $2.00 p&p 

Installing a Doubler is like buying another set of disk 
drives, only much cheaper!! The doubler works with 
most modern disk drives including:- MPI, Micropolis, 
Pertec, TEAC (as supplied by Tandy). The doubler 
installs in the TRS-80 expansion interface, the System- 
80 expansion interface and the LNW Research expan- 
sion interface in a few minutes without any soldering, 
cutting of tracks, etc. It comes complete with its own 
TRSDQS compatible double density operating system. 



■ZAP II - DOUBLE DENSITY PATCH 
FORNEWDOS80 
$53.00 plus $1.00 p&p 

ar^iiting NBWDOS 80, then you also need 
;ette. This program upgrades 
your NEWQOS^€^^)ubKdensity with ADR (auto- 
matic densit>s4£co^MU JrXtains all the familiar 
features, includ>ta trftjlBj3l*to tbs.mix and match 
track counts on theName^a^MjIn ab^ition, it gives 
NEWDOS 80 the abilityNto irfiKjJ^esSia the same 
cable, automatically. If ybi^DlS^^WgleNlensity 
diskette in drive 0, say and acfQub^^^sity disfesite 
in drive 1, Double-Zapll will recognise this and rea( 
write to drive in single density whrkl at the same 
time it reads/writes to drive 1 in double derlsijy! 



FLOPPY DOCTOR AND MEMORY DIAGNOSTIC 
(by MICRO CLINIC) $29.95 plus 50c. p&p 

Two machine language programs on a diskette together 
with manual which thoroughly test your disk drives 
and memory. There are 19 possible error messages in 
the disk drive test and their likely causes are explained 
in the manual. Each pass of the memory tests checks 
every address in RAM 520 times, including the space 
normally occupied by the diagnostic program itself. 
When an error occurs the address, expected data, and 
actual data are printed out together with a detailed 
error analysis showing the failing bit or bits, the corres- 
ponding IC's and their location. This is the most 
thorough test routine available for TRS-80 disk users. 



BOOKS 

LEVEL II ROM REFERENCE MANUAL 
^4.95 + $1.20 p&p 

Over 70 pages packed full of useful information and 
sample programs. Applies to both TRS-80 and SYSTEM 
80. 

TRS-80 DISK AND OTHER MYSTERIES 
$24.95 + $1.20 p&p 

The hottest selling TRS-80 book in the U.S.A. Disk file 
structures revealed, DOS's compared and explained, 
how to recover lost files, how to rebuild crashed 
directories — this is a must for the serious Disk user 
and is a perfect companion to any of the NEWDOS's. 

LEARNING LEVEL II 

$16.95 + $1.20 p&p 

Written by Daniel Lien, the author of the TRS-80 

Level I Handbook, this book teaches you, step-by-step, 

how to get the most from your Level II machine. 

Invaluable supplement to either the TRS-80 Level II 

Manual or the System-80 Manuals. 



All programs designed to run on both the TRS-80 or the SYSTEf 

TRIAD VOL 1 -L2/16K 

Cassette $1 D.95 Disk $1 5.95 

+ 60c p&p 

Three separate games which test your powers of memory and 
concentration. The programs combine graphic displays and 
sound: 

S1MON-SEZ: Just like the electronic music puzzles on sale for 
more than $20. Numbers are flashed on the screen and sounded 
in a sequence determined by the computer. Your task is to 
reproduce the sequence, correctly, 

LINE?: Rather like a super, complicated version of noughts 
and crosses. You may play against another player or against 
the computer itself. But beware, the computer cheats! 
SUPER CONCENTRATION: Just like the card game but with 
more options. You must find the hidden pairs. You may play 
against other people, play against the computer, play on your 
own, or even let the '80 play on its own. 

TRIADVOL2-L2/16K 

Cassette $1 0.95 Disk $1 5.95 

+ 60c p&p 

Remember those "NUMERO" puzzles in which you had a 
matrix of numbers (or letters) with one blank space and you 
had to shuffle the numbers around one at a time until you 
had made a particular pattern? Well, SHUFFLEBOARD, the 
first program in this triad, is just this, except that the computer 
counts the number of moves you take to match the pattern 
it has generated — so it is not possible to cheat. 
MIMIC is just like SHUFFLEBOARD except that you only 
see the computer's pattern for a brief span at the beginning of 
the game, then you must remember it! 

In MATCHEM, you have to manoeuvre 20 pegs from the 
centre of the screen to their respective holes in the top or 
bottom rows. Your score is determined by the time taken to 
select a peg, the route taken from the centre of the screen to 
the hole and your ability to direct the peg into the hole with- 
out hitting any other peg or the boundary. 

VISURAMA L2/16K 

Cassette $1 0.95 Disk $1 5.95 

+ 60c p&p 

Two programs which give fascinating, ever-changing patterns 

on the screen. 

LIFE is the fastest implementation of the Game of Life you 
will see on your '80. Machine language routines create up to 
1200 new generations per minute for small patterns or up to 
100 per minute for the full 128 x 48 screen matrix. Features 
full horizontal and vertical wraparound. 

EPICYCLES will fascinate you for hours. The ever-changing 
ever-moving patterns give a 3D effect and were inspired by the 
ancient Greek theories of Ptolemy and his model of the Solar 
system. 

EDUCATION AND FUN - L1/4K, L2/16K 
Cassette $1 0.95 Disk $1 5.95 
+ 60c p&p 
Written by a primary school teacher to make learning enjoy- 
able for his pupils, there are five programs in both Level I and 
Level II to suit all systems: 

BUG-A-LUG: a mathematics game, in which you must get the 
sum correct before you can move. 

AUSTRALIAN GEOGRAPHY: learn about Australian States 
and towns, etc. 

SUBTRACTION GAME: build a tower with correct answers. 
HOW GOOD IS YOUR MATHS? Select the function (+, -, 
-^ or X) and degree of difficulty. 

HANGMAN: That well known word game now on your 
computer. 
Recommended for children from 6 to 9 years. 



COSMIC FIGHTER & SPACE JUNK - L2/16K 
Cassette $10.95 Disk $15.95 
+ 60c p&p 
Both programs have sound to complement their excellent 
graphics. In COSMIC FIGHTER, you must defend the earth 
against seven different types of alien aircraft. It is unlikely that 
you will be successful but you will have a lot of fun trying! 
You mission in SPACE JUNK is to clean up all the debris left 
floating around in space by those other space games. It is not 
as simple as it sounds and space junk can be quite dangerous 
unless you are very careful. 

SPACE DRIVE L2/4K&16K 

Cassette $8.95 Disk $13.95 

+ 60c p&p 

Try to manoeuvre your space ship through the meteor storms 

then land it carefully at the space port without running out of 

fuel or crashing. Complete with realistic graphics. 

STARFIRE AND NOVA INVASION L2/16K 
Cassette $10.95 Disk $15.95 
+ 60c p&p 
Both programs include sound to improve their realism. 
STARFIRE seats you in the cockpit of an X-wing fighter as 
you engage in battle with the deadly Darth Vader's Tie-fighters. 
Beware of the evil one himself and may the Force be with you. 
In NOVA INVASION, you must protect your home planet of 
Hiberna from the invading NOVADIANS. You have two fixed 
guns at each side of the screen and a moveable one at the 
bottom. Apart from shooting down as many invaders as 
possible, you must protect your precious hoard of Vitaminium 
or perish! 

AIR ATTACK AND NAG RACE - L2/16K 

Cassette $10.95 Disk $15.95 

+ 60c p&p 

An unlikely combination of programs but they share the same 

author who has a keen sense of humour. 

AIR ATTACK includes sound and realistic graphics. The air- 
craft even have rotating propellors! But they also drop bombs 
on you, so it's kill or be killed! 

NAG RACE lets you pander to your gambling instinct without 
actually losing real money. Up to five punters can join in the 
fun. Each race results in a photo-finish whilst there is a visible 
race commentary at the bottom of the screen throughout the 
race. Happy punting! 

FOUR LETTER MASTERMIND L2/16K 

Cassette $8.95 Disk $13.95 

+ 60c p&p 

There are 550 four-letter words from which the computer can 
make its choice. You have 12 chances to enter the correct 
word. After each try, the computer informs you of the number 
of correct letters and those in the correct position. You can 
peek at the list of possible words but it will cost you points. 
Makes learning to spell fun. 

MUSIC IV -L2/16K 

Cassette $8.95 Disk $13.95 

+ 60c p&p 

Music IV is a music compiler for your '80. It allows you to 
compose or reproduce music with your computer that will 
surprise you with its range and quality. You have control over 
duration (full beat to 1/16 beat) with modifications to extend 
the duration by half or one third for triplets. Both sharps and 
flats are catered for as are rests. Notes on whole sections may 
be repeated. The program comes with sample data for a well- 
known tune to illustrate how it is done. 



***SAVE 00$'s***SAVE 00$'s***SAVE Q0$'s***MICRO-80 EXPANSION INTERFACE*** 

MICRO-80's expansion interface utilises the proven LNW Research Expansion board. It is supplied fully built up and tested in an 
attractive cabinet with a self contained power supply, ready to plug in and go. The expansion interface carries MICRO-80's full, no 
hassle, 90-day warranty. 
Features include:- m Sockets for up to 32K of memory expansion @ Disk controller for up to 4 disk drives © Parallel printer port 

o Serial RS232C/20mA I/O port © Second cassette (optional) 
The expansion interface connects directly to your TRS-80 L2/16K keyboard or, via SYSPAND-80 to your SYSTEM 80VIDEO GENIE 
Prices: HD-010-A Expansion Interfaces with K : $499.00 HD-010-B Expansion Interfaces with 32K : $549.00 HD-011 Data 
separator fitted (recommended) : add$29.00-HD-012 Dual cassette Interfaces fitted : add $19.00 

The MICRO-80 Expansion Interface is also available in kit form. 
Prices: HD-013 Kit consisting of LNW Research PC board and manual, ALL components including cabinet & power supply : $375.00 
HD-01 1 Data separator for above $25.00 HD-013 Dual cassette Interface kit : $1 5.00 




A choice of upper and lower case display is easier to read, 
gives greater versatility. 

The Micro-80 lower case modification gives you this facility, 
plus the symbols for the 4 playing-card suits for $49,00 + 
$2.00 p. & p. 

The Micro-80 modification features true below-the-iine 
descenders and a block cursor. 

Each kit comes with comprehensive fitting instructions 
and two universal lower-case drive routines on cassette to 
enable you to display lowercase in BASIC programs. 

The driver routines are self-relocating, self-protecting and 
will co-reside with other machine language programs such 
as Keyboard-debounce, serial interface driver programs etc. 



plus $2.00 p & p 



Both programs give your TRS-80 m Model I or System 80 ,m 
an optional typewriter capability, i.e shift for upper case 

The second programme also includes Keyboard-debounce 
and a flashing cursor. 

You fit it. Or we can. 

Fitting the modification requires soldering inside the 
computer. This should oniy be carried out by an experienced 
hobbyist or technician. 

If you are at all dubious, a fitting service is available in all 
capital cities for only $20.00. 

A list of installers is included with each kit. 




NLY $1199, 




The Micro-80 disk drive upgrade for the TRS-80"" Model III 
contains the following high quality components: 

1 or 2 MPI 40-track single head disk drives, 1 VR Data 
double-density disk controller board and 1 dual drive power 
supply plus all the necessary mounting hardware, cablesand 
comprehensive fitting instructions, which can be carried out 
with a minimum of fuss by any average computer owner. 

Fitting service isavailablefor$25.00in most capital cities. 



ONLY $2049 INC. S.T. 



Daisy Wheel Typewriter/Printer 



MICRO-80 has converted the new OLIVETTI ET-121 DAISY WHEEL typewriter 
to work with the TRS-80 and SYSTEM 80 or any other microcomputer 
with a Centronics parallel port (RS 232 serial interface available 
shortly). The ET-121 typewriter is renowned for its .high quality, 
fast speed (17 c.p.s.), quietness and reliability. MICRO-80 is 
renowned for its knowledge of the TRS-80/SYSTEM 80 and its sensible 
pricing policy. Together, we have produced a dual-purpose machine; - 
an attractive, modern, correcting typewriter which doubles as a 
correspondence quality Daisy-wheel printer when used with your 
micro-computer. 

How good is it? - This part of our advertisement was typeset using 
an ET-121 driven by a TRS-80. Write and ask for full details. 




BUY YOUR MODEL 3 FROM MICRO 

AFTO SAYE $000 




MICRO-80 fits reliable MP1 disk drives to the TRS-80 Model 3 to give system capacities 
and capabilities far in excess of those available elsewhere. All our conversions utilise low 
dissipation, switching-mode power supplies to avoid screen jitter and overheating. The 
disk controller boards used incorporate special compensation circuitry for 80 track disk 
drives and may also be used to run 8 inch disk drives with an appropriate cable and 
DOS. 

MODEL 340 

2 40 TRACK SINGLE -HEAD DISK DRIVES GIVING 

350K FORMATTED STORAGE, 48K RAM $ 3 1 30 

MODEL 340+ 

2 40 TRACK DUAL-HEAD DRIVES GIVING 

700K FORMATTED STORAGE, 48K RAM $3350 

MODEL 380 + 

2 80 TRACK DUAL-HEAD DRIVES GIVING 

1.4 MEGABYTE FORMATTED STORAGE, 48K RAM $3300 

* NEW * * NEW * * NEW * 

MODEL 500 — 5 + MEGABYTE MODEL 3 
1 40 TRACK DUAL-HEAD DRIVE GIVING 
350K OF FLOPPY DISK STORAGE FOR TRANSFERRING 
PROGRAMS AND BACKUP, 48K RAM, EXTERNAL 
5 MEGABYTE WINCHESTER SUB-SYSTEM, 
CP/M (ORG 4200N) DISK OPERATING SYSTEM $5895 

The MODEL 500 offers the high speed, mass storage capacity and reliability 
Winchester drive for thousands of dollars less than you would pay for 
comparable system. Model 500 is a serious business computer able to tackle the 
most demanding tasks. 



of a 
any 



All prices are in Australian dollars, include Sales Tax and are subject to change without notice. Prices are FOB Adelaide. Add $20 road freight 
anywhere in Australia. All computers and systems carry MlCRO-80's 90-day Warranty covering parts and labour. 



SAVE A PACKET ON MICRO-80's DISK DRIVE PACKAGES 
FOR TRS-80 MODEL 1 AND SYSTEM 80 MICROCOMPUTERS 




s 



|||||PP|BMMIi 

SINGLE DRIVE PACKAGE from 




$499 



DUAL DRIVE PACKAGE from ... $874 

Bigger volume means lower cost price, which we are passing on to you. Avoid the annoying bundle of cables, 
wires and separate boxes. MICRO-80 is now offering our well-proven WPI disk drives in attractive, self-contained 
single or dual-drive cabinets complete with internal power supply. Our drive and dual-drive packages also in- 
clude the appropriate version of DOSPLUS and dual-drive cable. 

The best news of all is the specially reduced package prices ... 
SAVE $23 — $107 over our already low prices! 

Choose the appropriate system from the table below: 



DRIVE TYPE 


No. of 
Tracks 


No. of 

Heads 


Capacity 


Dosplus 
Version 


Price 


* 
Saving 


DRIVE© 














1 x MPI B51 


40 


1 


100K 


3.3 


$499 


$77.95 


1 x MPI B52 


40 


2 


200K 


3.4 


$639 


$97.95 


1 x MPI B92 


80 


2 


4O0K 


3.4 


$799 


$107.95 


DRIVE 1 














1 x MPI B51 


40 


1 


100K 


— 


$415 


$23.00 


1 x MPI B52 


40 


2 


200K 


— 


$525 


$23.00 


1 x MPI B92 


80 


2 


400K 


— 


$695 


$23.00 



•Represents the saving compared with buying all the items included in the package separately 



""Drive package includes one bare disk drive, self-contained single- 
drive cabinet/ power supply as illustrated, two drive cable and the ver- 
sion of DOSPLUS indicated. 



"Drive 1 package includes one bare disk drive and self-contained 
singte-drive cabinet/power supply as illustrated. 



If it's a dual-drive system you need, then take advantage of our dual-drive package and 

SAVE a further $40 on the price of two single-drive packages ... 



DRIVE TYPE 



No. of 
Tracks 



No. of 
Heads 



Capacity 



Dosplus 
Version 



Price 



2 x MPI B51 
2 x MPI B52 
2 x MPI B92 



40 ea 
40 ea 
80 ea 



1 ea 

2 ea 
2 ea 



2x 100K 
2 X200K 
2 x400K 



3.3 
3.4 
3.4 



$874 
$1125 

$1454 



Dual-drive package includes two bare disk drives, self-contained dual- 
drive cabinet/power supply as illustrated, two drive cables and the 
version of Dosplus indicated. 

All disk drive components are still available separately: 



NOTE: All 40 track drives are completely compatible with 35 track 
operating systems such as TRSDOS. DOSPLUS allows you to realise an 
additional 14% capacity compared with TRSDOS. Under DOSPLUS 3.4, 
80 track drives can read 35/40 track diskettes. 



BARE DRIVES — MPI drives offer the fastest track-to-track access time (5 milliseconds) available. All drives are capable 
of operating in double density for 80% greater storage capacity. 



MPI B51 40 track, single-head, 100K 
MPI B52 40 track, dual-head, 200K 
MPI B92 80 track, dual-head, 400K 

Simple, wrap-around cabinet 
Separate, dual-drive power supply 



Price 

A, qq New. 

1 Reduced Price 

$449 

$619 

$12 
$85 



Freight 

$5.00 
$5.00 
$5.00 

$2.00 
$8.00 



Self-contained, single drive cabinet/power supply 
Self-contained, dual-drive cabinet/power supply 
Two drive cable 
Fan drive cable 
DOSPLUS 3.3 
DOSPLUS 3.4 



Price 


Freight 


r supply $99 


$5.00 


supply $135 


$5.00 


$39 


$2.00 


$49 


$2.00 


$99.95 


$2.00 


$149.95 


$2.00 



Prices are FOB Adelaide. Add $5.00 freight for single drive package, $10.00 for dual-drive package. Prices are in Australian dollars. 
Freight is road freight anywhere in Australia. 

AH items carry a 90-day parts and labour warranty. Repairs to be carried out in our Adelaide workshops. 
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SOFTWARE BY AUSTRALIAN AUTHORS 

All our software is suitable for either the SYSTEM SO or the TRS-80 



NEW SOFTWARE FROM MICRO-80 PRODUCTS 
BUSINESS PROGRAMS 

MSCROMANAGEMENT 

STOCK RECORDING SYSTEM (L2/16K) 

Cassette version $29.95 + $1.00 p&p 

Stringy Floppy version $33.95 + $1.00 p&p 

This system has been in use for 9 months in a number 
of small retail businesses in Adelaide. It is therefore 
thoroughly debugged and has been tailor made to suit 
the requirements of a small business. MICROMANAGE- 
MENT SRC enables you to monitor the current stock 
level and reorder levels of 500 different stock items per 
tape or wafer. It includes the following features: — 

— Add new items to inventory 

— Delete discontinued items from inventory 

— List complete file 

— Search for any stock number 

— Save data to cassette or wafer 

— Load data from cassette or wafer 

— Adjusts stock levels from sales results and receipt 
of goods 

— List all items requiring reordering 

We can thoroughly recommend this program for the 
small business with a L2/16K computer. 



SCOTCH BRAND COMPUTING CASSETTES 

Super-quality personal computing cassettes. 

C-10packof10 $26.00 incl. p&p 

C-30packof10 $28.00 incl. p&p 



UTILITIES 

8-KEY by Edwin Paay $1 5.95 plus 50c. p&p 

S-KEY is a complete keyboard driver routine for the 
TRS-80 and becomes part of the Level II basic inter- 
preter. With S-KEY loaded the user will have many 
new features not available with the standard machine. 
S-KEY features: 

* S-KEY provides an auto-repeat for all the keys on 
the keyboard. If any key is held down longer than 
about half a second, the key will repeat until it is 
released. 

* Graphic symbols can be typed direct from the key- 
board, this includes all 64 graphic symbols available 
from the TRS-80/SYSTEM 80. 

* S-KEY allows text, BASIC commands and/or 
graphics to be defined to shifted keys. This makes 
programming much easier as whole commands and 
statements can be recalled by typing shift and a 
letter key. 

* Because S-KEY allows graphics to be typed directly 
from the keyboard, animation and fast graphics are 
easily implemented by typing the appropriate 
graphics symbols directly into PRINT statements. 

* S-KEY allows the user to LIST a program with 
PRINT statements containing graphics, properly. 
S-KEY does this by intercepting the LIST routine 
when necessary. 

* S-KEY allows the user to list an updated list of the 
shift key entries to the video display or line printer. 

* S-KEY can be disabled and enabled when required. 
This allows other routines which take control of the 
keyboard to run with S-KEY as well. 

Each cassette has TRS-80, DISK and SYSTEM 80 
versions and comes with comprehensive documentation. 



BM0N by Edwin Paay $19.95 plus 50c. p&p 

THE ULTIMATE HIGH MEMORY BASIC MONITOR 

L2/16-48K 

Our own personnel refuse to write BASIC without first 
loading this amazing machine language utility program 
into high memory! BMON Renumbers; Displays BASIC 
programs on the screen while they are still loading; tells 
you the memory locations of the program just loaded; 
lets you stop a load part-way through; merges two 
programs, with automatic renumbering of the second 
so as to prevent any clashes of line numbers; recovers 
your program even though you did type NEW: makes 
one program invisible while you work on a second 
(saves hours of cassette time!); lists all the variables 
used in the program; makes SYSTEM tapes; lets you 
Edit memory directly . . . the list goes on and on. 
Cassette comes with 16K, 32K and 48K versions, ready 
to load. Can anyone afford NOT to have BMON? 



EDUCATIONAL 

RPN CALCULATOR (L2/16K & 32K) 
$14.95$ 50c. p&p 

Give your computer the power of a $650 reverse polish 
notation calculator with 45 functions and selectable 
accuracy of 8 or 16 digits. The main stack and registers 
are continuously displayed whilst the menu is always 
instantly accessible without disturbing any calculations 
or register values. The cassette comes with both the 
16K and 32K versions, the latter giving you the addi- 
tional power of a programmable calculator. Comes 
with a very comprehensive 15 page manual, which 
includes instructions to load and modify the 32K pro- 
grammable version to run in 16K. Whether for business 
or pleasure, this package will prove invaluable, and turn 
you '80 into a very powerful instrument. 



GAMES 

MICROPOLY(L2/16K) $8.95 + 60c p&p 

Now you can play Monopoly on your micro. The old 
favourite board game has moved into the electronic era. 
This computer version displays the board on the screen, 
obeys all the rules and, best of all, the banker does not 
make mistakes with your change! 

CONCENTRATION (L2/16K) $8.95+ 60c p&p 

Another application of supergraphics. There are 28 
"cards" displayed on the screen, face down. Players 
take it in turn to turn them over with the object of 
finding matching pairs. There are 40 different patterns 
which are chosen at random, so the game is full of end- 
less variety. This is of particular value in helping young 
children to learn the art of concentrating and, at the 
same time, to introduce them to the computer. 

METEOR AND TORPEDO ALLEY (L2/16K) 
$10.95 + 60c p&p 

Those who frequent games arcades will recognize these 
two electronic games. In METEOR you must destroy 
the enemy space ships before they see you. In its most 
difficult mode, the odds are a thumping 238 to 1 
against you being successful. In torpedo alley you must 
sink the enemy ships without hitting your own supply 
ship. Both games include sound effects and are remark- 
ably accurate reproductions of the arcade games. 
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AUSTRALIAN SOFTWARE (Cont.) 

GAMES 

SHEEPDOG (L2/16K) $8.95 + 60cp&p 

Ever wondered how a sheepdog manages to drive all 
those awkward sheep into a pen? Well, here is your 
chance to find out just how difficult it is and have a 
lot of fun at the same time. You control the sheepdog, 
the computer controls the sheep! As if that isn't 
enough, look out for the dingoes lurking in the bush! 

U BOAT $8.95 + 60c p&p 

Real time simulation at its best! Comes with working 
sonar-screen and periscope, a full rack of torpedoes, 
plenty of targets, working fuel and battery meters, 
helpful Mothership for high-seas reprovisioning and 
even has emergency radio for that terrible moment 
when the depth charges put your crew at risk. Requires 
Level II/16K. 

SPACE INVADERS WITH SOUND $8.95 + 60c p&p 
Much improved version of this arcade favourite with 
redesigned laser and cannon blasts, high-speed cannon, 
50 roving drone targets, 10 motherships and heaps of 
fun for all. Level II with 4K and 16K versions on this 
cassette. 

GOLF(L2/16K) $8.95 + 60c p&p 

Pit your skillsof mini-golf against the computer. Choose 
the level of difficulty, the number of holes and whether 
you want to play straight mini golf or crazy golf. Com- 
plete with hazards, water traps, bunkers and trees. 
Great fun for kids of all ages. 

D0M1N0ES(L2/16K) $8.95 + 60c p&p 

Pit your skill at dominoes against the computer, which 
provides a tireless opponent. Another application of 
supergraphics from the stable of Charlie Bartlett. 
Dominoes are shown approximately life size in full 
detail (except for colour!). The monitor screen is a 
window which you can move from one end of the 
string of dominoes to the other. Best of all, you don't 
lose any pieces between games! 

KID'S STUFF (formerly MMM-1) $8.95 + 60c p&p 

Three games on one cassette from that master of TRS- 
80 graphics, Charlie Bartlett. Includes INDY 500, an 
exciting road race that gets faster and faster the longer 
you play, SUBHUNT in which your warship blows up 
unfortunate little submarines all over the place, and 
KNIEVEL (as in motorcycle, ramp and buses). 



OTHER PROGRAMS 

INFINITE BASIC BY RACET (32K/1 DISK) 
$49.95 + 50c. p&p 

Full matrix functions — 30 BASIC commands; 50 more 
STRING functions as BASIC commands. 

GSF/L2/48K &4.95 + 50c. p&p 

18 machine language routines including RACET sorts. 

BUSINESS ADDRESS AND INFORMATION SYSTEM 
(48K/DISK) $24.95 + 50c. p&p 

Allows you to store addresses and information about 
businesses, edit them and print them out. 

HISPED(L216,32or48K)©9.95 

This machine language program allows you to SAVE 
and LOAD programs and data to tape at speeds up to 
2000 band (4 times normal) using a standard cassette 
recorder. A switch must be installed to remove the 
XRX III loading board, if fitted. 



LOWER CASE FOR YOUR TRS-80/SYSTEM 80 
Kit only $49.00 plus $2.00 p&p 

Give your TRS-80 or SYSTEM 80 a lower case display 
with proper descenders and a block cursor (similar to 
the TRS-80 Model III). Also includes symbols for the 
four suits of cards. Includes full fitting instructions, all 
necessary components and a special machine language 
driver program to enable lower case in BASIC. The 
modification is similar to the Tandy model and does 
not work with Electric Pencil without further modifi- 
cations. 

These kits require disassembly of your computer and 
some soldering. They should only be installed by 
someone who has experience in soldering integrated 
circuits, using a low power, properly earthed soldering 
iron. If you do not have the necessary experience/ 
equipment, we will install the modification for you for 
$20 plus freight in both directions. Make sure you 
arrange the installation with us first, before despatch- 
ing your computer, so that we can assure you of a 
rapid turn-around. We are also arranging to have 
installers in each State. See elsewhere in this issue for 
their names and addresses. 

PRICES 
Cat No. 
HD-020 Lower case mod kit for TRS-80 

$49.00 plus $2.00 p&p 
HD-021 Lower case mod kit for SYSTEM-80 

$49.00 plus $2.00 p&p 



EPSON MX-80 PRINTER 

ONLY *$949 Inc. Cable for TRS-80 and p&p 

(*Printer only - $940 incl. p&p) 

The EPSON MX-80 printer is compact, quiet, has 
features unheard of only 2-3 years ago in a printer at 
any price and, above all, is ultra-reliable. All available 
print modes may be selected under software control. 
Features include: 

— high quality 9x9 dot-matrix character formation 

— 3 character densities 

. 80 characters per line at 10 chars/inch 
.132 characters per line at 16.5 chars/inch 
. 40 characters per line at 5 chars/inch 

— 2 line spacings 

. 6 lines per inch 8 lines per inch 

— 80 characters per second print speed 

— bi-directional printing 

— logical seeking of shortest path for printing 

— lower case with descenders 

— TRS-80 graphics characters built in 

— standard Centronics printer port 

The bi-directional printing coupled with the logical 
seeking of the shortest print path (which means that 
the print head will commence printing the next line 
from the end which requires the least travel, thereby 
minimising unutilised time) gives this printer a much 
higher throughput rate than many other printers 
quoting print speeds of 120 c.p.s. or even higher. 



GREEN SCREEN SIMULATOR 
$9.50 incl. p&p 

The GREEN SCREEN SIMULATOR is made from a 
deep green perspex, cut to fit your monitor. It improves 
contrast and is much more restful to the eyes than the 
normal grey and white image. 

All editorial staff of MICRO-80 are now using GREEN 
SCREEN SIMULATORS on their own monitors. 

Please make sure to specify whether you have an old 
(squarish) or new (rounded) style monitor when order- 
ing. Not available for Dick Smith monitors. 
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***** HOW TO USE THE TRS-80 LEVEL I ARRAY EFFECTIVELY by Otto Reberg ***** 

BEGINNERS: 

The level I array is very unusual. It has only one dimension and is automatically DIM'med to 
(MEM.ory/4-1 ) (Divide by 4 because each element occupies 4 bytes and subtract 1 byte which separates 
program and array). The following example shows an easy way to use the array: 

10 LET A(1)=0 : LET A(2)=l 

20 FOR 1=3 TO 20 

30 LET A(I)=A(I-l)+A(I-2) 

40 PRINT A(I); 

50 NEXT I 

This program generates and prints the number sequence of Fibonnachi, in which the two first 
numbers are and 1, and each of the following numbers are the sum of the two preceders. Let 
us analyse the program: In line 10, the two first numbers are put into A(). In line 30, A(I) 
is set to the sum of A(I-l) and A(I-2), and the result is printed in line 40. This is repeated 
several times (line 20 and 50). 

ADVANCED PROGRAMMERS. 

You often have to use several arrays within one program. The solution to this is to divide 

A() into many pieces. Suppose you want to create three arrays, one with 14 elements, the second 

with 10 elements and the third with 20. You want to print the F'th element of each array. 
This is written: 

PRINT A(F), A(14+F), A(14+10+F) 

(Just remember to keep the index within the proper limits). 

EXPERTS. 

If you are in need of a 2-dimensional array, also this can be done. You have an array (10,5) 
(i.e. having 10 rows and 5. columns) and want to know the value of (I, J). You then type: 

PRINT A(5*I+J) 

By using the simple principles shown above, you are able to create rather complicated structures: 
You have an array (5,7,9), the elements from to 20 in A() are already used, and you would 
like to put PI into (I,J,K). I suggest that you should express it this way: 

LET A(20+9*7*I+9*J+K) = 3.1415925 

You should always be careful with these arrays, as they occupy large parts of your RAM. This 
one ate 5*7*9*4=1260 bytes. 

- 000000000 - 

***** TRANSFERRING T0UCHTYPE TO DISK by G.F. Hilder ***** 

T0UCHTYPE is one of the more popular educational programs we have published on cassette. It 
does take a long time to load in all the lessons, however and for some time there has been a 
Readers' Request to publish instructions for transferring this program and its data files to 
disk. Mr. Hilder has accomplished this task and describes this procedure as follows. 

INSTRUCTIONS 

1. Load the T0UCHTYPE tape into the recorder and adjust the volume control to a suitable 
level. I advise you not to attempt the rest of the instructions until you are sure 
the tape will be read reliably. 

2. Place the recorder in the playback mode and CL0AD the first program. 

3. List the program to make sure the load was successful then type SAVE"TTYPE1/BAS". 

4. Leaving the recorder in the play mode type NEW then type in and run the following program: - 

10 CLEAR 1000 

20 0PEN"0",1,"TTYPE3/TXT" 

30 INPUT#-1,D$ 

40 PRINT D$ 

50 D$=CHR$(34)+D$+CHR$(34) 

60 PRINT#1,D$ 

70 CLOSE: END 
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The following message will be displayed and then saved on disk. 

################# 

# THANK YOU # 

################# 

5. CLOAD the second program. 

6. Type SAVE"TTYPE2/BAS" 

7. Load and run the following program. 

10 CLEAR 1000 

20 0PEN"0\1,"TTYPE4/TXT" 

30 INPUT#-1,A,B,D$ 

40 PRINT A,B,D$ 

50 D$=CHR$(34)+D$+CHR$(34) 

60 PRINT#1,A,B,D$ 

70 GOTO30 

You should see each block of data displayed on the screen and then saved to disk. The total 
time involved will be about 20 mins. but it is worth watching the proceedings to make sure that 
there are no data reading errors. 

N.B. With suitable changes to the input and print statements the above procedure would also 
allow the production of back-up tape copies. 

8. The following changes must also be made to allow the programs to run under Disk BASIC: 

(a) Type L0AD M TTYPE1/BAS" 

(b) Type 25 0PEN"IM ,"TTYPE3/TXT" 

(c) Type 35 CLOSE 

(d) Modify lines 30 and 80 to look like the following:- 

30 FORK=0TO6000:NEXT:CLS:PRINT"THIS COURSE RELIES HEAVILY ON THE USE OF DATA 
STATEMENTS AND THE LOADING OF SUBROUTINES FROM DISK. PLEASE LEAVE YOUR DISK 
INSERTED. ":INPUT#1,D$:PRINTD$: 

80 PRINT"READY";CHR$(34);"Y0U SHOULD TYPE ";CHR$(34) ;"RUN";CHR$(34) ;" AND PRESS 
ENTER YOU WILL THEN BE ASKED TO SELECT YOUR STARTING POINT. "; :FORT=0TO1000: 
NEXT : CLEAR0 : L0AD"TTYPE2/BAS : 1 " 

(e) Type SAVE"TTYPE1/BAS" 

(f) Type L0AD"TTYPE2/BAS" 

(g) Type 75 OPEN'T'J, "TTYPE4/TXT" 
(h) Modify line 80 to look like:- 

80 ONERRORGOTO80: INPUT#1 ,LL,C,TE$:IFLN<LLTHENCLS:PRINT"REWIND IT PLEASE" :GOSUB270:CLS 
:GOTO80:ELSEIFLLOLNPRINT@256, "READING" ;LL,:GOTO80 

(i) Type SAVE"TTYPE2/BAS" 

I also noticed an error in line 130 of my copy of TOUCHTYPE which resulted in the "0" being 
omitted from the keyboard display. The correct line 130 is shown below. 

130 CLS:PRINT@384,STRING$(64,131);" 1! 2";CHR$(34);" 3# 4$ 5% 6& 7' 8( 9) 

: * -=V [ QWERTYUIOPQ ";CHR$(93) ," ";CHR$(92);" 

ASDFGHJK" 

- 0000000000 - 

***** DESCRIPTION OF THE FUNCTIONS PERFORMED BY THE EXPANSION INTERFACE - by Andrew Jack ***** 
The Expansion Interface for the TRS-80 performs five main user accessible functions: 

(1) A relay to provide two cassette ports. 

(2) A Centronics parallel printer port. 

(3) A floppy disk controller and support circuitry. 

(4) Provision for an extra 32K of RAM. 

(5) 25ms interrupts (real time clock). 

The relay which selects the cassette port is accessible through memory location 37E4H (14308), 
using POKE14308,0 cassette one is selected (normal), and POKE14308,! selects cassette two. 
This function has more possibilities than are immediately obvious, for example, by shorting 
pins one and three on the Expansion Interface cassette input, and connecting a low powered circuit 
to pins one and three of cassette output port two, it is possible to close the connected circuit 
by a simple POKE14308,! and open it with POKE14308,0. Similar results can be obtained by using 
the relay inside the keyboard, but it is only suitable for \/ery low power use and has a tendency 
to weld shut, and also to revert to open when in BASIC command mode. 
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The printer port is a straightforward Centronics parallel port, driven by the LI I ROM printer 
driver and simply transmits data when a READY status is shown in location 37E8H (14312). This 
location can be PEEKed to show whether a printer is connected, and if it is out of paper. If 
the value is less than 127, the printer is ready to roll. If it is 127 then the printer is 
out of paper. There is more information provided by this location, but it is not the same for 
every printer, so the best way is to experiment and find out the status checks for yourself. 

The floppy disk control circuitry mainly consists of the Western Digital FD17713 floppy disk 
controller, which is detected by the Microsoft ROM's test routine and instructed to commence 
loading the Disk Operating System (DOS) if (BREAK) is not pressed to generate a forced jump 
to LII. The Expansion Interface then accepts the data and control information is passed to 
the floppy disk through the DOS. 

The extra RAM is straightforward, simply being an extension of the keyboard RAM, with the exception 
of the more complicated addressing techniques made necessary by the limited number of pins on 
the card edge. 

The 25ms interrupts are not used by LII and the interrupt routine automatically returns without 
doing anything. This useful feature of the Z-80 is, however, exploited to a small extent in 
TRSDOS, and to a larger extent by NEWDOS80 and other DOS's. In TRSDOS it is used for the real 
time clock, and in NEWDOS80 its full potential is used to check for the triple key depressions, 
and for the print spooler. 

I own a 16K LII with lowercase and an E/I with 32K of MICRO-80 RAM, along with two Tandy drives 
and Microline 80 printer, and I have found that the Expansion Interface performs all these functions 
for what is quite a modest price, when compared with the expansion connectors for computers 
like the Apple and, with the exception of Tandy's $220 for 16K RAM price tag (MICRO-80's RAM 
is faster and only $30 for 16K), is good value. 

- 0000000000 - 



• * SOFTWARE SECTION * • 

***** SCREEN COPY UTILITY L2/m.l. - by N.J. Coleman ***** 

This program provides two extra BASIC instructions which enable a copy of the screen display 
to be stored, and recalled, at will. 

The program provides these two commands: 

- LSET to store an image of the screen. 

- RSET to recall an image. 

Both commands are reasonably self-explanatory. 

Since the program is in machine language, it is very fast - instantaneous to the user. This 
makes it ideal for graphics and board game programs where a design must be redrawn constantly. 

The program is very simple for a BASIC user. First set Mem Size to 31690 and then key in the 
program. Once the program has been RUN it may be deleted and the two new commands used in any 
BASIC Program. (Change Line 230 to 230 DELETE - 230) 

For a machine language programmer this program is simplicity itself. All it does is: 

(i) set up the LSET and RSET vectors and return to BASIC. 

(ii) upon the respective commands being used, either the screen memory is moved to a reserved 

portion of high RAM, or the reserved RAM is moved to the screen locations; all done using 

the LDIR conznand. 

Since a LD is in fact a copy instruction, the original remains undisturbed and ready for continued 
use. 

- 0000000000 - 

***** FLASHING MESSAGE ROUTINE L2/16K - by A. Park ***** 

If you have ever wanted to draw attention to a particular piece of information within a program 
when the screen is packed full of data, the answer is to make the important line(s) flash. This 
can be achieved by using BASIC statements. However, they waste a lot of memory, especially 
if you want to use the keyboard and flash the message at the same time. 



VOLUME 3 NO. 3 (FEBRUARY 1982) MICRO-80 PAGE 24 

This program flashes any one line message at a specific rate without being under BASIC program 
control. It might just be the finishing touch to make your programs more impressive, especially 
when you find that after typing BREAK, LIST and NEW, the message is still flashing. This makes 
it the ideal program to flash rude messages at your mother-in-law (as she won't know how to 
turn it off! ) 

Two commands have been included to allow the user to stop or start the program after it has 
been initialized. Typing KILL then ENTER/NEWLINE, whilst in BASIC, will stop the program and 
typing LOAD will re-initialize it. Disk BASIC users will obviously have to be content with 
continuous operation. 

For those of you with good memories (no pun intended), a reasonable amount of the program should 
look familiar. The reason for this is that it is designed around Eddy Paay's Cursor Driver 
program, listed in MICRO-80's November issue, for the sake of simplicity. 

The program is best entered via an editor/assembler for a number of reasons: 

1. The copyright messages will be printed whilst loading, thus indicating that the program 
is loading correctly. 

2. It is much easier to use a DEFM statement rather than to calculate the hex equivalent of 
each individual character. 

3. The program will run itself, without typing "/". 

If the program is entered by an editor/assembler, ignore the first two columns of the LISTing 
and type in the source code, starting at line 110. The label VIDEO may be changed to position 
the message anywhere on the screen (the top line is most suitable due to linefeed action). 

One word of caution - the first character of your message in line 1130 must not be a space as 
the message will not flash if this is done. 

The program sets memory size by itself, as explained by Eddy in the MICRO-80 November issue 
and so it is not necessary to answer MEMORY SIZE? or READY? 

Disk BASIC users should use location 4049H for TOPMEM and delete lines 380 to 490 inclusive 
and lines 1190 to 1290. 

The program may also be entered via a monitor. BMON would not be suitable here without the 
addition of a block move routine, described in the September 1980 issue of MICRO-80. ZMON L 
from the MICRO-80 Software Library would be suitable. In this case, the object code should 
be entered directly smarting at location 7EE5H by entering F3 then 21, 0C etc. Locations 7F71H 
to 7FB0H must be filled with the HEX equivalent of the ASCII characters to be used in your message, 
e.g. in the example given, the first character is "=" whose ASCII code in HEX is 3D (61 in decimal). 
The first character must not be a space (or 20H) and all of the locations should be filled so 
that one complete line is printed. Locations 7FB2H to 7FF1H must all be filled with 20H's so 
that the previous message is wiped out. If all goes well, you shdulcl finish at location 7FFEH 
after typing in 05H. Punch out a tape with the following parameters: 

START = 7EE5H END = 7FFEH ENTRY = 7EE5H NAME = MESAGE 

The message is embedded in the machine code from address 7F71H to 7FB0H. To change the message, 
it would normally be necessary to alter the source code and reassemble. If you include the 
following lines of BASIC code in your own BASIC program, then you may change the message at 
will. You may even change the message which flashes at different stages of your program and 
shift it around the screen using the POKES shown, in Line 320. 

100 X*="THIS IS THE MESSAGE YOU WANT TO FLASH. MUST BE 64 CHARACTERS LONG, PAD 

WITH SPACES IF NECESSARY" 

110 FOR X=0 TO 63 

120 POKE 32625+X,ASC(MID*(X*,X+l, 1) ) 

130 NEXT X 

140 REM THE FOLLOWING CODE WILL ALLOW YOU TO SELECT THE LINE ON THE SCREEN IN WH 

ICH YOUR MESSAGE WILL BE DISPLAYED. 

150 INPUT "LINE NO. REQUIRED (1-16) ";LNs IF LN< 1 OR >16 THEN 150 

160 ADDRESS=LN*64+15296:LSB=ADDRESS AND 255: MSB= I NT (ADDRESS/256) 

170 POKE 32557, LSB: POKE 32558, MSB: 

POKE 32569, LSB: POKE 32570, MSB: 

POKE 32596, LSB: POKE 32597, MSB 

The BASIC program which is LISTed after the machine language source code is used to change the 
flash rate of the message if desired. Rates of less than 100 tend to make the display a little 
hard to read due to keyboard scanning. Both programs do NOT have to be in the computer at the 
same time as the flash rate is set to a default value of 592(Dec) by the machine language program. 

- 0000000000 - 
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***** LONGVARS L2/48K - by R.T. Worley ***** 

One of the limitations of the MICROSOFT BASIC used in '80 microcomputers is the restriction 
placed on variable names. It can be very helpful when writing a program to use meaningful words 
as variables, such as LENGTH or WIDTH or perhaps MIDDLE. These words make the program logic 
much easier to follow and the BASIC code is, to an extent, self -documenting. This approach 
is possible on the TRS-80 but with two important restrictions. The variable name must not contain 
any reserved words such as LEN and MID in the examples above, and the interpreter recognises 
only the first two letters of the variable name. This means that the first two letters in each 
long variable name used must differ from all others. In practice, these two limitations are 
so restricting that only the most intrepid programmers use long variable names in all but very 
small programs. 

LONGVARS overcomes these limitations. You may use whatever names you wish, such as BECOS (includes 
a reserved word), and AARDVARK and AARDVOLF (to represent different variables), and COUNT OF 
WORDS (includes blanks). The only restriction is that variable names starting with a reserved 
word must be followed by a type flag (!,#,$, or %). 

When you have written your program, and it is in memory (and a spare copy saved!) load and run 
LONGVARS. It will process your program systematically altering all variable names so that different 
variables have different one- or two-letter names. Variable types are preserved. However all 
statements defining variable types must occur in the program before any variable is used (and 
it is preferable to type CLEAR (ENTER) before running LONGVARS to reset the variable type table 
to the default value of single precision). 

LONGVARS may also be used to change the names of specified variables only, or to produce a cross- 
reference of all variables (or specified variables only) in a program. It has an option of 
adding type flags to all variables, and another option of not using single letter variable names 
(always using double letter names may reduce variable access time by up to 5%). 

The program produces its listing on either printer or video. Video output may be halted by 
pressing any key, and restarted by pressing a different key. 

The source code runs to over 20 pages so is, unfortunately, too long to reproduce in the magazine. 
Instead, a hex dump has been printed. Enter the hex listing using a suitable monitor such as 
BMON ( Issues 3, 4 and 5 ) or ZMON (from the MICRO-80 Software Library - Vol 1). The code is 
2836 bytes long, starting at F400, finishing at FF14 with an entry point at F9A4. Should you 
require a hard copy listing of the source code, a photocopy is available from MICRO-80 for $5.00 
including postage. A dump of the source code is included on both the monthly cassette and disk. 
Line numbers mentioned in the remainder of these instructions refer to the source code. 

The value of 100 loaded into register BC in line 1120 is to allow room for program expansion. 
This may be altered to a larger value if required, though expansion will only occur when processing 
a normal BASIC program extending variable names to two characters and/or adding type flags. 

The following is a brief description of how LONGVARS works. After first finding out what you 
wish to do, it scans the BASIC program in memory looking for variables. Whenever it finds one 
it scans the table of variables it has already found (or you have entered) for a match. If 
there is a match it adds the line number to its table and continues. If there is no match it 
adds the name and the line number to its tables (unless specified variables only are being handled). 
During this phase a graphics character at the top of the screen will wiggle to indicate each 
new line scanned. 

In the next phase the tables will be scanned and the variables listed (for a cross reference), 
new names will be allocated and listed if required, and the lines in which the variable occurs 
will be listed. An unusual feature is that names are allocated in decreasing frequency of occurr- 
ence, in order that space may be saved when allowing single letter names. 

In the final phase (if required) the program is scanned again and the old variable names replaced 
by the new names. Once again, the graphics byte wiggles to confirm that the program is working. 
When loaded the program displays the following menu:- 

B... RETURN TO BASIC 

C... COMPLETE RENAME OF VARIABLES 

S... SPECIFIED VARIABLE RENAMING 

X... CROSS REFERENCE ONLY 

? 

Typing "3" simply returns you to BASIC leaving the amended program intact in memory. 
Type "C" and L0NGVAR will di splay: - 

ENTER VARIABLE NAMES THAT YOU WISH TO DECLARE, IE. ALL NAMES THAT INCLUDE RESERVED WORDS. THE 
TYPE BYTE MUST BE INCLUDED. 
PRESS ENTER AFTER EACH ONE 
ENTER "*" TO TERMINATE 
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You should now type in any variable names that you have used that included reserved words, i.e. 

F0RK$ (this contains the reserved word FOR) 

STIFF! (this contains the reserved word IF). Note also the inclusion of the type byte, even 

if the variable appears in your program as STIFF it must be identified for LONGVAR 

as STIFF! 

The program will then ask you:- 

PRESS "Y" IF YOU SPECIFIED ANY VARIABLES STARTING WITH RESERVED WORDS, ELSE ANY OTHER KEY 

Using the examples of STIFF! and F0RK$, the answer would be "Y" as F0RK$ starts with a reserved 
word. The next prompt from the program asks:- 

PRESS "T" TO SET ALL VARIABLES WITH TYPE DECLARATION FLAG ELSE PRESS ANY OTHER KEY 

THis will simply add a type flag to all variables. A note of caution here: if your lines already 
contain the maximum number of characters your program could be scrambled. Always SAVE your 
program first. 

The next prompt from the program is:- 

PRESS "S" TO ALLOW SINGLE LETTER NAMES, ELSE ANY OTHER KEY 

If you type "S" then LONGVAR will replace all your variable names with single letter names, 
i.e. A,B,C,D,E,F,G etc. if you type any other key then LONGVAR will use double letter names, 
i.e. AA,BB,CC,DD,EE,FF,GG etc. 

The last question asked by this section of the program is:- 

PRESS "V" TO SET VIDEO OUTPUT, ANY OTHER KEY FOR PRINTER 

Depending on your response, the display will either go to the VDU or the printer. After that 
question has been answered, the program will start renaming your variables listing the original 
variable name, the name it has been changed to and the line numbers where the changes were made. 
E.g. 

VARIABLE STIFF! RENAMED TO A! IN LINE 70 80 90 105 
VARIABLE F0RK$ RENAMED TO B$ IN LINE 35 50 130 
etc. etc. 

While the renaming is taking place a graphic dot at the top left of the screen will wiggle anytime 
that the program appears inactive so as to show that LONGVAR is still alive. 

The "S" function on the program menu allows you to rename specified variables whilst leaving 
the other variables in your program alone. When selected, the program will di splay :- 

ENTER VARIA3LE NAMES THAT YOU WISH TO ALTER, USING THE FORM VT=N(T), WHERE V(...V) IS THE OLD 
NAME, T IS THE TYPE BYTE AND N(...N) IS THE NEW NAME, PRESS ENTER AFTER EACH ONE ENTER "*" TO 
TERMINATE 

Using our previous example variables, they would be typed in exactly as follows:- 

STIFF!=A! 
F0RK$=8$ 

or if the old names had no type byte then you would type:- 

STIFF=A! 
F0RK=B$ 

or 

STIFF=A 
F0RK=3 

Remember though, if you use the last example, LONGVAR does not check or change DEF statements. 
So if at the beginning of your original program you had:- DEFSTR F$ and you used the last example 
of:- F0RK=B without type flags, then you should also change the DEF statement to DEFSTR B$ 

When renaming starts the program will list the variables being changed, whilst wiggling the 
graphics dot previously mentioned. 

VARIABLE STIFF! RENAMED TO A! IN LINE 10 
VARIABLE FORKS RENAMED TO B$ IN LINE 95 
etc. etc. 



70 


80 


90 


100 


65 


90 


78 


105 


200 


205 


300 


375 
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The last function "X", in LONGVAR simply lists out all the variables in the program and the 
lines that they are in. The program provides the option for this listing to go to the VDU or 
the printer, e.g. 

VARIA3LE A! IN LINE 
VARIABLE A$ IN LINE 
VARIABLE B$ IN LINE 

LOADING LONGVAR 

With NEWDOS:- 

Type BASIC, 62464 

Load in the BASIC program to be worked on. 

Type CMD"LONGVAR/CMD" 

The LONGVAR menu will then be displayed and you can use the functions you require. 

With TRSDOS 

Type LOAD LONGVAR/CMD 

Type BASIC 

Answer MEMORY SIZE with - 62464 

Load in the BASIC program to be worked on. 

Type SYSTEM 

In response to the next prompt type:- 

/63908 

The LONGVAR menu will then be displayed and you can use the functions you require. 
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***** THE MIND READER - by P.J. Smith ***** 

Is this Artificial Intelligence? or just computer trickery!!! Well you might be able to deceive 
your computer-illiterate friends or sceptical relatives. The mind reader is simple, fast and 
entertaining. Simply think of a number, the computer will show you several lists of numbers 
and will then ask you if you see the number you thought of. THEN it will stare at you very 
deeply and will tell you the number you picked and it's right EVERY time. The Mind Reader does 
not reveal his tricks, but you should be able to unravel the mystery by studying the program 
listing. 

- 0000000000 - 

***** AUSTRALIAN INCOME TAX CALCULATOR L2/4K by D. Weaver ***** 

In Australia, every citizen is required to lodge a Taxation Return during the month of July 
each year, in which he or she discloses all earnings for the preceding financial year (July 
1 to June 30). (Yes, we know there are exceptions but we don't need to go into that here). 
The Government, in its munificence, allows one or two minor items of expenditure as "deductions" 
(i.e. non-taxable). After identifying these, the taxpayer is then required to calculate his 
net taxable income and thence the tax which is payable from a table supplied. The majority 
of the population works for someone else and pays tax each week or month on a pay-as-you-earn 
(PAYE) scheme. These people complete an "S" (for Salaries and Wages) Income Tax Return Form. 
Having calculated how much tax he should have paid and knowing from the "Group Certificate" 
supplied by his employer, how much he has paid, the taxpayer then completes the form, sends 
it off and waits expectantly if the Taxation Department owes him money or, with great anxiety 
if the opposite is true. 

Once upon a time, the Government always made sure that everyone overpaid under the PAYE scheme, 
thus everyone was entitled to a refund (often of several hundred dollars). Such a situation 
perpetrated by anyone else would, of course, be fair game for all the consumer protection author- 
ities, etc. but passed with little comment except from a few "cranks". Indeed, from August 
on, one was treated to the curious sight of taxpayers rejoicing as they received back their 
own money which had been forcefully removed from them over the previous 12 months! This became 
a popular source of "mad-money" and many projects were financed by the refund cheques. Holidays 
were taken, new carpets purchased, even down payments made on new cars all from this windfall 
income. This made the annual preparation of the Income Tax Return a tedious but rewarding exercise. 
Then, suddenly, it all changed. The Government adjusted the PAYE rates so that they very nearly 
collected the exact amount of money due during the year and refunds became negligible in size. 
By now, our overseas readers will be making plans to move to Australia where we obviously have 
a uniquely honourable Government which is prepared to forego the interest-free use of hundreds 
of millions of dollars of its citizens' money, just to ensure that they are treated fairly. 
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Well, unpack your bags; the reason they did it was that it became fashionable for Governments 
to control (!) the economy via the money supply and, if you release hundreds of millions of 
dollars into the economy just when you are trying to hold things back, you no longer have control. 
To Governments, of course, control is far more important even than money, hence the money went. 

All that is now left for Australia's taxpaying citizens then, is the annual tedium of completing 
their Income Tax Returns with little hope of reward. This program will reduce that tedium a 
little by assisting you to calculate just how much refund you should get or how much extra you 
will need to render unto Caesar. Overseas readers may find it interesting to compare their 
own rates of direct taxation with Australia's whilst those readers in the Middle East and other 
tax havens can reinforce the wisdom of their choice of domicile. 



The following variables are used in the program. 



LL = Lower Tax Limit 

TD = Tax Dollar Payable on LL 

TC = Tax Cents Payable on LL 

GC = Gross Income from Group Certificate 

01 = Other Income (apart from group certificate) 

DD = Deductions 

TI = Taxable Income 

TP = Tax Paid 

IT = Income Tax Payable 

The Tax Scales themselves are contained in DATA Lines 410-440. These should be altered whenever 
the Tax Scales change. As an example, shown below are the Tax Scales in two financial years 
1979/1980 and 1980/81 and the changes which would have been required in the DATA Lines. 

Tax Scales 1979/1980 



Taxable Income 



From 


To 


$ 


$ 


1 


3893 


3893 


16607 


16608 


33215 



33216 and over 



Tax on Taxable Income 



NIL 

NIL plus 33.07 cents for each $1 above $3893 

$4204.8505 plus 47.07 cents each $1 above $16608 

$12022.326 plus 61.07 cents each $1 above 33216 

Tax Scales 1980/1981 



1 4041 
4041 17238 
17239 34477 
34478 and over 



NIL 



NIL plus 32 cents for each $1 above $4041 
$4223.36 plus 46 cents for each $1 above 17239 
$12153.30 plus 60 cents for each $1 above 34473 



DATA Lines 



DATA Lines 



1979/1980 



1980/1981 



410 DATA 1, 0, 

420 DATA 3393, 0, 0.3307 

430 DATA 16608, 4204.85, 0.4707 

440 DATA 33216, 12022.236, 0.6107 



1, 0, 
4041, 0, 0.32 
17239, 4223.36, 0.46 
34478, 12153.30, 0.60 



ANALYSIS OF THE PROGRAM 

The following shows the functions carried out by different parts of the program: 



Lines 80-140 
210-230 
260-280 

290 

310 
320 

350-370 
410-440 



Ask for information to be input 

Read in the TAX SCALES from the DATA in lines 410-440 

Search the TAX SCALES for the Lower Tax Limit (LL) that 

is greater than the Net Income (TI) 

Ensures that if Net Income is greater than last DATA line 

(440) that this line is used 

Calculates the Tax Payable (IT) by going back one DATA line 

Prints Tax Payable 

Print out Who Owes Who and how much 

DATA lines which store the Tax Scales. 



This progrun is correct for the 1980/81 Tax Year. 
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3DC0 
3DC0 2A 

JULY - 1981 
3E00 20 
N.S.W 2068.' 



7EE5 



06CC 
03E3 
4016 
40B1 
0250 
40A0 
1B6E 
0020 
3C00 



7EE5 
7EE6 
7EE9 
7EEC 
7EED 
7EEE 
7EF1 
7EF4 
7EF5 
7EF7 



7EFA 
7EFD 
7F00 
7F03 
7F06 
7F09 



7F0C 
7F0F 
7F10 
7F12 
7F13 
7F16 
7F19 
7F1A 
7F1B 
7F1D 
7F20 
7F21 
7F22 
7F24 
7F26 
7F27 
7F2A 
7F2B 



F3 

210C7F 

221640 

2B 

2B 

22B140 

113200 

B7 

ED52 

22A040 



21E57E 
228941 
21F67F 
229241 
CD6E1B 
C3CC06 



3AF57F 

B7 

2004 

D9 

CD2C7F 

CDE303 

D9 

B7 

2046 

2AF37F 

7C 

B5 

3E00 

2806 

2B 

22F37F 

D9 

C9 



00010 
00020 
00030 
00040 
OO050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 

tt 
00130 



MESAGE 

THIS ROUTINE FLASHES A MESSAGE I INDEPENDENTLY OF PROGRAM 
CONTROL. MEMORY SIZE IS SET AUTOMATICALLY AND PROGRAM 
RUNS BY ITSELF IF ENTERED VIA AN ED I TOR- ASSEMBLER . 

PROGRAM IS DISABLED BY 'KILL' COMMAND IN BASIC AND 
ACTIVATED BY THE 'LOAD* COMMAND. 

THE RATE OF FLASHING MAY BE ADJUSTED BY FOLLOWING 
BASIC PROGRAM OTHERWISE IT IS SET TO DEFAULT VALUE. 



$$' 



ORG 
DEFM 

DEFM 



3DC0H 

'« ft 



FLASHING MESSAGE ROUTINE s CO 
BY s ANTHONY PARK , MIDDLE COVE 



00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 



? PROGRAM FOLLOWS. 

5 



ORG 

? 

I DEFINE LABELS 

5 

BASIC EQU 

KBSCAN EQU 

KBVEC EQU 

TOPMEM EQU 

DELAY EQU 

SPOINT EQU 

SETPTR EQU 

SPACE EQU 

VIDEO EQU 

5 

1 INITIALIZE 

5 



INIT 



DI 

LD 

LD 

DEC 

DEC 

LD 

LD 

OR 

SBC 

LD 



7EE5H 



06CCH 
03E3H 
4016H 
40B1H 
0250H 
40A0H 
1B6EH 
0020H 
3C00H 



HL , START 
(KBVEC) ,HL 
HL 
HL 

(TOPMEM) ,HL 
DE,32H 
A 

HL,DE 
(SPOINT), HL 



?SET MEMORY SIZE 



;SET 'LOAD' AND 'KILL' COMMAND VECTORS. 

I 

LD 

LD 

LD 

LD 

CALL 

JP 

? 

;MAIN ROUTINE 

I 



START 



CONT 



LD 

OR 

JR 

EXX 

CALL 

CALL 

EXX 

OR 

JR 

LD 

LD 

OR 

LD 

JR 

DEC 

LD 

EXX 

RET 



HL ? INIT 
(4189H),HL 
HL,KILL 
(4192H) ,HL 
SETPTR 
BASIC 



A, (TEST) 

A 

NZ , CONT 

PRINT 
KBSCAN 



NZ,RESCNT 
HL, (COUNT) 
A,H 
L 

A,0 

Z, PRINT 
HL 
(COUNT) ,HL 



;SET ALL OTHER POINTERS. 



?TEST FOR PROGRAM RUNNING 



; PR I NT MESSAGE. 



; DECREMENT COUNTER 
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7F2C 
7F2F 
7F30 
7F32 
7F34 
7F37 
7F3B 
7F3E 
7F3F 
7F41 
7F43 
7F46 
7F47 
7F49 
7F4B 
7F4C 
7F4D 
7F4F 
7F52 
7F56 
7F57 
7F59 
7F5B 
7F5E 
7F5F 
7F61 
7F63 
7F64 
7F65 
7F68 
7F6B 
7F6E 
7F6F 
7F70 



21003C 

7E 

FE20 

201B 

21717F 

DD2I003C 

32F57F 

7E 

FEOO 

2808 

DD7700 

23 

DD23 

18F3 

AF 

F5 

1819 

21B27F 

DD21003C 

7E 

FEOO 

28F0 

DD7700 

23 

DD23 

18F3 

F5 

AF 

32F57F 

215002 

22F37F 

Fl 

D9 

C9 



7F71 3D 
R SYSTEM. 
7FB1 00 
7FB2 20 

7FF2 00 
7FF3 0000 
7FF5 00 



7FF6 21E303 
7FF9 221640 
7FFC C3CC06 



4015 

4015 01E57E 

7EE5 



00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
OHIO 
01120 
01130 
< = 
01140 
01150 

01160 
01T70 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 



THIS FLASHES MESSAGE 



PRINT 



LOOP 



ENDMES 

MESOFF 
L00P1 



RESCNT 



FIXCNT 



LD 

LD 

CP 

JR 

LD 

LD 

LD 

LD 

CP 

JR 

LD 

INC 

INC 

JR 

XOR 

PUSH 

JR 

LD 

LD 

LD 

CP 

JR 

LD 

INC 

INC 

JR 

PUSH 

XOR 

LD 

LD 

LD 

POP 

EXX 

RET 



HL, VIDEO 

A, (HL) 

SPACE 

NZ, MESOFF 

HL,MESAGE 

IX, VIDEO 

(TEST) ,A 

A, (HL) 

; CHECK 

Z , ENDMES 

(IX) ,A 

HL 

IX 

LOOP 

A 

AF 

FIXCNT 

HL, CLEAR 

IX, VIDEO 

A, (HL) 



Z, ENDMES 

(IX) ,A 

HL 

IX 

L00P1 

AF 

A 

(TEST) ,A 

HL, DELAY 

(COUNT) .HL 

AF 



:TOP LEFT OF SCREEN. 

? IS MESSAGE PRINTED ? 
; YES ! TURN IT OFF ! ! 
5 NO ! THEN PRINT IT ! ! 



FOR END OF MESSAGE. 



sKEEP ON PRINTING 



5 FIX COUNT AGAIN 
sWIPE OUT MESSAGE 



5 SAME AS BEFORE. 



;GET DELAY. 



? CHOOSE YOUR OWN MESSAGE HERE. 
sN.B. FIRST CHARACTER MUST NOT 



MESAGE DEFM 



BE A SPACE ! ! ! 
"==> SYSTEM 80 16 K / LI I COMPUTE 

s CONFIRM END OF MESSAGE. 



CLEAR 



COUNT 
TEST 



DEFB 

DEFM 

5 CLEAR WITH 64 SPACES. 

DEFB :AS BEFORE 

DEFW O 

DEFB 



5 THIS SECTION RESETS KEYBOARD VECTOR. 



KILL 



LD 
LD 
JP 



HL,KBSCAN 
(KBVEC) ,HL 
BASIC 



sTHIS SECTION RUNS THE PROGRAM BY ITSELF 



ORG 

LD 

END 



4015H 

BC,7EE5H 

INIT 



5 INIT IS A BACKUP ??? 



10 *tt tt FLASH RATE DRIVER FOR MESSAGE ROUTINE tt tt 

20 CLS 

30 PRINT3448," PRESENT FLASH RATE = "? PEEK (3261 

7) + (PEEK (32618) $256) 

40 PRINTS PRINT 

50 INPUT" ENTER NEW FLASH RATE "sR 

60 IFR>32767THENR=32767 

70 IFR<0THENR=100 

80 P0KE326 1 7 , R AND255 s P0KE326 1 8 , ( R / 256 ) AND255 

90 GOTO 10 

100 END 
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***** NEXT MONTH'S ISSUE ***** 

Next month's issue will contain at least the following programs plus the usual features and 
articles. 



** LEMNISCATES LII/4K ** 



** RESTORE LII/16K ** 



This program is for all those people who 
hate typing in long program listings. 
Lemniscates has one (1) line, yes that's 
all. The author wanted to see just how 
much could be done in one line of program. 
If you know what Lemniscates are, you will 
have an idea just how much this one line 

program does. If you don't know look 

it up before the next issue!!! 



On some personal computers, the EXIDY SORCERER 
to name one, it is possible to include 
in the program a statement such as RESTORE 
300. This then sets the data pointer to 
look at line 300 when the program encounters 
a READ statement instead of having to read 
in all the data in the program - a great 
time saver. Next month you too will have 
this function on your computer. 



WHEEL LOADER PRODUCTION LI/4K ** 



** ALIEN INVASION LII/16K ** 



This program is designed to calculate wheel 
loader production in tons per hour. It 
can be used for all sizes of loaders in 
all types of conditions. If you are in 
the earthmoving or mining business, this 
should be very useful. 



In this game you have to fight off the 
invading aliens. If you let five of them 
land the game moves on into a second section 
which is even harder, with lots of aliens 
all fighting back. 



^^^^^psw^a^bkii^^tee 
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WANTED - ARTICLES AND PROGRAMS FOR THE TRS-80 COLOUR COMPUTER AND THE HITACHI PEACH. 

Starting with Vol. 3 Issue No. 5, MICRO-80 will be supporting the TRS-80 Colour Computer 
and the Hitachi Peach. Both these computers have a 6809 micro-processor and use 
similar Microsoft BASIC interpreters. We require articles and programs which will 
be of interest to the users of these computers, for publication. One good source 
of program ideas is past issues of MICRO-80. Why not write programs similar to 
some of those we have published for the Models 1 and 3 with the added features of 
sound and colour. Naturally, we will pay a publication fee to each author. So, 
don't delay, use the coupon below to send in your contribution. 
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***** CASSETTE/DISK EDITION INDEX ***** 

The cassette edition of MICRO-80 contains all the software listed each month, on cassette. 
All cassette subscribers need do is CLOAD and RUN the programs. Level II programs are recorded 
on side 1 of the cassette. Level I programs are recorded on side 2. Level I programs are not 
compatible with the System 80. All programs are recorded twice in succession. Note, System 
80 computers have had different tape-counters fitted at different times. The approximate start 
positions shown are correct for the very early System 80 without the volume control or level 
meter. They are probably incorrect for later machines. The rates for a cassette subscription 
are printed on the inside front cover of each issue of the magazine. 

The disk edition contains all those programs which can be executed from disk, including Level 
I programs. Level I disk programs are saved in the NEWDOS format. Users require the Level 
I/CMD utility supplied with NEWDOS + or NEWDOS 80 version 1.0 to run them. 



APPROX. START POSITION 



SIDE 1 

LONGVAR 
ii 

LONGVAR 
FLASHING MESSAGE 

II 

FLASHING MESSAGE 
FLASHING MESSAGE 



TYPE 


I.D. 


DISK FILESPEC 


CTR-41 


CTR-80 


SYSTEM-80 


SYSTEM 


LONGVR 


LONGVAR/CMD 


15 


10 


11 


■I 


n 




46 


31 


33 


EDTASM 


LONGVR 


LONGVAR/EDT 


74 


50 


52 


SYSTEM 


MESAGE 


MESSAGE/CMD 


240 


162 


170 


ii 


ii 




246 


166 


174 


EDTASM 


MESAGE 


MESSAGE/EDT 


252 


170 


178 


ii 


ii 




275 


186 


195 


L2/16K 


M 


MESSAGE/BAS 


300 


202 


211 


" 


M 




305 


206 


216 



SIDE 2 



INCOME TAX 
MIND READER 
VDU SAVE 
LONGVAR 



L2/4K 
n 


T 
ii 


TAX /B AS 


15 
36 


10 
24 


11 
25 


L2/4K 


M 
H 


MINDREAD/BAS 


55 
92 


37 
62 


39 
65 


L2/16K 
ii 


V 
ii 


VDUSAVE/BAS 


126 
133 


85 
90 


89 
94 



EDTASM LONGVAR LONGVAR/EDT 



140 



95 



100 




□ 
o 

3" 

CD i 

£ 3 

CD ~~i 

r- 



ni 



□ 



CD £> 

ro =j o 

™ " ft 

*" Si rP 

2 S- G 

!?□! 

o -, o 

i < * 

q o 



-H 




3" 


CD : 


CD 


CD 


^ 


5' : 




V> : 


o 


Q_ ■' 


ZO 


cd ; 


r> 


— +i ' 






00 


O : 


o 


3 ; 



r+ 


H 


o 


_» 


_i c 


D 




o 
o 

< 


3" 
CD 


01 
to 
v> 

CD 




3 S" 


s 


o 


0) 
CD 


r+ 
CD 
CD 


o 

3 


o 

3 

r+ 

3" 


Co 

CD 
3D 


o 

30 
C/3 O 


1 







t/> 


C/l 


£ 


O oo 






<~*. 


C 


C" 


00 


C o 


o' 

CD 


c 

CD 


o 

3 


u 

o 


cr 

o 

n 


5: 




CO 


o 

— * 




— t 

■a' 


■a' 


o 

2 




2 








C CD 




O 




o 

3 


o 

3 


5^ 


c/> o 

> 2 

i~ w 
>a 

en O 




O 

CO 

o 




c+ 

O 

o 


o 
o 


CD 

Co 








J3 


33 


Co 








n 


o 


3- 












O 


o O 








UU 

p 


00 

o 


1 


n 








■a_ 




CD 


o 



o 








TO 
SUBSCRIBERS OF 





FOR THE FIRST TIME IN AUSTRALIA! 
GENUINE TANDY TRS-80 MICRO-COMPUTERS, 
HARDWARE AND SOFTWARE AT 

GREAT DISCOUNT PRICES ! ! ! 



HOW TO ORDER - 

1. SELECT ITEMS FROM 1980 TANDY CATALOGUE 

2. DEDUCT 10% FROM ADVERTISED PRICES 

3. POST US YOUR ORDER STATING DESCRIPTION 
CAT. No AND A CHEQUE OR MONEY ORDER. 

WE WILL - 

1. ATTEND TO YOUR ORDER WITHIN 7 DAYS * 

2. SUPPLY GOODS SELECTED FREIGHT FREE ! 
SEND ADVERTISING REGULARLY TO KEEP 
YOU INFORMED OF CURRENT SPECIALS ! 

subject to availability 



3. 



^4n 



to CONQUEST ELECTRONICS Pty. Ltd. 
212 Katoomba St. KATOOMBA 2780 

Please supply — 

QTY. CAT NO DESC. ADV. PRICE 



SUB TOTAL 
LESS 10% 
FIND CHEQUE FOR TOTAL 



■ ELECTRONICS 



SEND FREIGHT FREE TO 

NAME 

ADDRESS 



.P/Code 



CONOUEH ELECTRONIC! 

212 KATOOMBA ST KATOOMBA N.S.W. 2780 PHONE (047) 82 2491 



PTY. LTD. 





LEVEL 2 ROM 



ASSEMBLY LANGUAGE TOOLKIT 

by Edwin Paay 

FOR TRS-80 MODEL 1 , MODEL 3 
AND SYSTEM 80/VIDEO GENIE 



This is a new package consisting of two invaluable components: 

•A ROM REFERENCE Manual which catalogues, describes and cross-references the 

useful and usable ROM routines which you can incorporate into your own machine 
language or BASIC programs. 

•DBUG, a machine language disassembling debugging program to speed up the 
development of your own machine language programs. DBUG is distributed on a 
cassette and may used from disk or cassette. 

Part 1 of the ROM REFERENCE manual gives detailed explanations of the processes used for 
arithmetical calculations, logical operations, data movements etc. It also describes the various for- 
mats used for BASIC, System and Editor/Assembly tapes. There is a special section devoted to those 
additional routines in the TRS-80 Model 3 ROM. This is the first time this information has been made 
available, anywhere. Differences between the System SOIVideo Genie are also described. Part I is 
organised into subject specific tables so that you can quickly locate all the routines to carry out a 
given function and then choose the one which meets your requirements. 

Part 2 gives detailed information about each of the routines in the order in which they appear in 
the ROM. It describes their functions, explains how to use them in your own machine language 
programs and notes the effect of each on the various Z80 registers. 

Part 2 also details the contents of system RAM and shows you how to intercept BASIC routines. 
With this knowledge, you can add your own commands to BASIC, for instance, or position BASIC 

programs in high memory — the only restriction is your own imagination] 

The Appendices contain sample programmes which show you how you can use the ROM routines 
to speed up your machine language programs and reduce the amount of code you need to write. 

DBUG: Eddy Paay was not satisfied with any of the commercially available debugging programs, 
so he developed his own. DBUG: allows you to single-step through your program; has a 
disassembler which disassembles the next instruction before executing it or allows you to bypass 
execution and pass on through the program, disassembling as you go; displays/edits memory in 
Hex or ASCII; allows Register editing; has the ability to read and write System tapes and ail this on 
the bottom 3 lines of your screen, thus freeing the rest of the screen for program displays. Four ver- 
sions of DBUG are included in the package to cope with different memory sizes. 

The best news of all is the price. The complete Level 2 ROM ASSEMBLY LANGUAGE 
TOOLKIT Is only: 

— Aus. S 29.95 + S2.00 p&p 
- UK £18.00 + £1.00 p&p 

SPECIAL OFFER TO OWNERS OF THE LEVEL II ROM REFERENCE MANUAL ... 

UPGRADE TO THIS ASSEMBLY LANGUAGE TOOKIT FOR ONLY SI 9.951 

Send back your original Level If ROM Reference Manual plus a cheque, money order or 

Bankcard authorisation for $19.95 plus $2.00 p&p and we will send you the new 

ASSEMBLY LANGUAGE TOOLKIT 



